home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1992-12-30 | 24.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 20 | 21 52 75 6e 49 6d 61 67 |..... > |!RunImag|
|00000010| 65 0d 00 14 0f f4 20 20 | 20 21 46 69 6c 74 65 72 |e..... | !Filter|
|00000020| 0d 00 1e 05 3a 0d 00 28 | 25 ee 20 85 20 ef 36 3a |....:..(|%. . .6:|
|00000030| d9 23 30 3a eb 20 30 3a | f6 3a f1 22 20 61 74 20 |.#0:. 0:|.:." at |
|00000040| 6c 69 6e 65 20 22 3b 9e | 3a e0 0d 00 32 05 3a 0d |line ";.|:...2.:.|
|00000050| 00 3c 18 70 72 6f 67 5f | 74 69 74 6c 65 24 3d 22 |.<.prog_|title$="|
|00000060| 46 69 6c 74 65 72 22 0d | 00 46 21 70 72 6f 67 5f |Filter".|.F!prog_|
|00000070| 64 61 74 65 24 3d 22 31 | 2e 30 30 20 28 33 30 2d |date$="1|.00 (30-|
|00000080| 44 65 63 2d 39 32 29 22 | 0d 00 50 05 3a 0d 00 5a |Dec-92)"|..P.:..Z|
|00000090| 11 69 6e 64 69 72 6c 65 | 6e 25 3d 37 30 30 0d 00 |.indirle|n%=700..|
|000000a0| 64 44 de 20 74 61 73 6b | 69 64 25 20 34 2c 71 25 |dD. task|id% 4,q%|
|000000b0| 20 38 30 30 2c 6d 65 6e | 75 62 75 66 25 20 34 30 | 800,men|ubuf% 40|
|000000c0| 30 2c 69 6e 64 69 72 25 | 20 69 6e 64 69 72 6c 65 |0,indir%| indirle|
|000000d0| 6e 25 3a 24 74 61 73 6b | 69 64 25 3d 22 54 41 53 |n%:$task|id%="TAS|
|000000e0| 4b 22 0d 00 6e 14 de 20 | 74 65 6d 70 5f 62 6c 6f |K"..n.. |temp_blo|
|000000f0| 63 6b 25 20 34 30 0d 00 | 78 41 c8 99 20 22 57 69 |ck% 40..|xA.. "Wi|
|00000100| 6d 70 5f 49 6e 69 74 69 | 61 6c 69 73 65 22 2c 32 |mp_Initi|alise",2|
|00000110| 30 30 2c 21 74 61 73 6b | 69 64 25 2c 70 72 6f 67 |00,!task|id%,prog|
|00000120| 5f 74 69 74 6c 65 24 20 | b8 20 77 69 6d 70 5f 76 |_title$ |. wimp_v|
|00000130| 65 72 73 69 6f 6e 25 0d | 00 82 28 6d 65 6e 75 24 |ersion%.|..(menu$|
|00000140| 3d 22 3e 49 6e 66 6f 2e | 69 6e 66 6f 25 2c 3e 53 |=">Info.|info%,>S|
|00000150| 61 76 65 2e 73 61 76 65 | 25 2c 51 75 69 74 22 0d |ave.save|%,Quit".|
|00000160| 00 8c 05 3a 0d 00 96 29 | c8 99 20 22 57 69 6d 70 |...:...)|.. "Wimp|
|00000170| 5f 53 6c 6f 74 53 69 7a | 65 22 2c 2d 31 2c 2d 31 |_SlotSiz|e",-1,-1|
|00000180| 20 b8 20 73 74 61 72 74 | 73 6c 6f 74 25 0d 00 a0 | . start|slot%...|
|00000190| 31 c8 99 20 22 57 69 6d | 70 5f 53 6c 6f 74 53 69 |1.. "Wim|p_SlotSi|
|000001a0| 7a 65 22 2c 73 74 61 72 | 74 73 6c 6f 74 25 2c 2d |ze",star|tslot%,-|
|000001b0| 31 20 b8 20 73 74 61 72 | 74 73 6c 6f 74 25 0d 00 |1 . star|tslot%..|
|000001c0| aa 1b 63 75 72 72 65 6e | 74 73 6c 6f 74 25 3d 73 |..curren|tslot%=s|
|000001d0| 74 61 72 74 73 6c 6f 74 | 25 0d 00 b4 05 3a 0d 00 |tartslot|%....:..|
|000001e0| be 15 c8 99 20 22 48 6f | 75 72 67 6c 61 73 73 5f |.... "Ho|urglass_|
|000001f0| 4f 6e 22 0d 00 c8 05 3a | 0d 00 d2 09 f2 76 61 72 |On"....:|.....var|
|00000200| 73 0d 00 dc 05 3a 0d 00 | e6 32 53 25 3d 8e 20 22 |s....:..|.2S%=. "|
|00000210| 3c 46 69 6c 74 65 72 24 | 44 69 72 3e 2e 21 53 70 |<Filter$|Dir>.!Sp|
|00000220| 72 69 74 65 73 22 3a 6c | 65 6e 25 3d a2 23 53 25 |rites":l|en%=.#S%|
|00000230| 2b 31 36 3a d9 23 53 25 | 0d 00 f0 13 de 20 73 70 |+16:.#S%|..... sp|
|00000240| 72 69 74 65 73 25 20 6c | 65 6e 25 0d 00 fa 20 21 |rites% l|en%... !|
|00000250| 73 70 72 69 74 65 73 25 | 3d 6c 65 6e 25 3a 73 70 |sprites%|=len%:sp|
|00000260| 72 69 74 65 73 25 21 38 | 3d 31 32 0d 01 04 22 c8 |rites%!8|=12...".|
|00000270| 99 20 22 4f 53 5f 53 70 | 72 69 74 65 4f 70 22 2c |. "OS_Sp|riteOp",|
|00000280| 26 31 30 39 2c 73 70 72 | 69 74 65 73 25 0d 01 0e |&109,spr|ites%...|
|00000290| 3a c8 99 20 22 4f 53 5f | 53 70 72 69 74 65 4f 70 |:.. "OS_|SpriteOp|
|000002a0| 22 2c 26 31 30 41 2c 73 | 70 72 69 74 65 73 25 2c |",&10A,s|prites%,|
|000002b0| 22 3c 46 69 6c 74 65 72 | 24 44 69 72 3e 2e 21 53 |"<Filter|$Dir>.!S|
|000002c0| 70 72 69 74 65 73 22 0d | 01 18 14 de 20 69 63 6f |prites".|.... ico|
|000002d0| 6e 62 61 72 73 70 72 25 | 20 31 33 0d 01 22 1a 24 |nbarspr%| 13..".$|
|000002e0| 69 63 6f 6e 62 61 72 73 | 70 72 25 3d 22 21 46 69 |iconbars|pr%="!Fi|
|000002f0| 6c 74 65 72 22 0d 01 2c | 36 21 71 25 3d 2d 31 3a |lter"..,|6!q%=-1:|
|00000300| 71 25 21 34 3d 30 3a 71 | 25 21 38 3d 30 3a 71 25 |q%!4=0:q|%!8=0:q%|
|00000310| 21 31 32 3d 36 33 3a 71 | 25 21 31 36 3d 36 38 3a |!12=63:q|%!16=68:|
|00000320| 71 25 21 32 30 3d 26 32 | 31 30 32 0d 01 36 2d 71 |q%!20=&2|102..6-q|
|00000330| 25 21 32 34 3d 69 63 6f | 6e 62 61 72 73 70 72 25 |%!24=ico|nbarspr%|
|00000340| 3a 71 25 21 32 38 3d 73 | 70 72 69 74 65 73 25 3a |:q%!28=s|prites%:|
|00000350| 71 25 21 33 32 3d 31 33 | 0d 01 40 27 c8 99 20 22 |q%!32=13|..@'.. "|
|00000360| 57 69 6d 70 5f 43 72 65 | 61 74 65 49 63 6f 6e 22 |Wimp_Cre|ateIcon"|
|00000370| 2c 2c 71 25 20 b8 20 69 | 63 6f 6e 62 61 72 25 0d |,,q% . i|conbar%.|
|00000380| 01 4a 05 3a 0d 01 54 34 | c8 99 20 22 57 69 6d 70 |.J.:..T4|.. "Wimp|
|00000390| 5f 4f 70 65 6e 54 65 6d | 70 6c 61 74 65 22 2c 2c |_OpenTem|plate",,|
|000003a0| 22 3c 46 69 6c 74 65 72 | 24 44 69 72 3e 2e 54 65 |"<Filter|$Dir>.Te|
|000003b0| 6d 70 6c 61 74 65 73 22 | 0d 01 5e 29 ee 20 85 20 |mplates"|..^). . |
|000003c0| c8 99 20 22 57 69 6d 70 | 5f 43 6c 6f 73 65 54 65 |.. "Wimp|_CloseTe|
|000003d0| 6d 70 6c 61 74 65 22 3a | f2 65 72 72 6f 72 62 6f |mplate":|.errorbo|
|000003e0| 78 0d 01 68 10 74 65 6d | 70 25 3d 69 6e 64 69 72 |x..h.tem|p%=indir|
|000003f0| 25 0d 01 72 1e 69 6e 64 | 69 72 65 6e 64 25 3d 69 |%..r.ind|irend%=i|
|00000400| 6e 64 69 72 25 2b 69 6e | 64 69 72 6c 65 6e 25 0d |ndir%+in|dirlen%.|
|00000410| 01 7c 44 c8 99 20 22 57 | 69 6d 70 5f 4c 6f 61 64 |.|D.. "W|imp_Load|
|00000420| 54 65 6d 70 6c 61 74 65 | 22 2c 2c 71 25 2c 74 65 |Template|",,q%,te|
|00000430| 6d 70 25 2c 69 6e 64 69 | 72 65 6e 64 25 2c 2d 31 |mp%,indi|rend%,-1|
|00000440| 2c 22 69 6e 66 6f 22 2c | 30 20 b8 20 2c 2c 74 65 |,"info",|0 . ,,te|
|00000450| 6d 70 25 0d 01 86 12 71 | 25 21 36 34 3d 73 70 72 |mp%....q|%!64=spr|
|00000460| 69 74 65 73 25 0d 01 90 | 26 c8 99 20 22 57 69 6d |ites%...|&.. "Wim|
|00000470| 70 5f 43 72 65 61 74 65 | 57 69 6e 64 6f 77 22 2c |p_Create|Window",|
|00000480| 2c 71 25 20 b8 20 69 6e | 66 6f 25 0d 01 9a 23 71 |,q% . in|fo%...#q|
|00000490| 25 21 30 3d 69 6e 66 6f | 25 3a 71 25 21 34 3d 34 |%!0=info|%:q%!4=4|
|000004a0| 3a c8 99 20 26 34 30 30 | 43 45 2c 2c 71 25 0d 01 |:.. &400|CE,,q%..|
|000004b0| a4 1a 24 28 21 28 71 25 | 2b 32 38 29 29 3d 70 72 |..$(!(q%|+28))=pr|
|000004c0| 6f 67 5f 64 61 74 65 24 | 0d 01 ae 13 66 69 6c 65 |og_date$|....file|
|000004d0| 6e 61 6d 65 25 3d 74 65 | 6d 70 25 0d 01 b8 44 c8 |name%=te|mp%...D.|
|000004e0| 99 20 22 57 69 6d 70 5f | 4c 6f 61 64 54 65 6d 70 |. "Wimp_|LoadTemp|
|000004f0| 6c 61 74 65 22 2c 2c 71 | 25 2c 74 65 6d 70 25 2c |late",,q|%,temp%,|
|00000500| 69 6e 64 69 72 65 6e 64 | 25 2c 2d 31 2c 22 73 61 |indirend|%,-1,"sa|
|00000510| 76 65 22 2c 30 20 b8 20 | 2c 2c 74 65 6d 70 25 0d |ve",0 . |,,temp%.|
|00000520| 01 c2 0b 71 25 21 36 34 | 3d 31 0d 01 cc 26 c8 99 |...q%!64|=1...&..|
|00000530| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 57 69 6e | "Wimp_C|reateWin|
|00000540| 64 6f 77 22 2c 2c 71 25 | 20 b8 20 73 61 76 65 25 |dow",,q%| . save%|
|00000550| 0d 01 d6 23 71 25 21 30 | 3d 73 61 76 65 25 3a 71 |...#q%!0|=save%:q|
|00000560| 25 21 34 3d 30 3a c8 99 | 20 26 34 30 30 43 45 2c |%!4=0:..| &400CE,|
|00000570| 2c 71 25 0d 01 e0 16 66 | 69 6c 65 6e 61 6d 65 25 |,q%....f|ilename%|
|00000580| 3d 21 28 71 25 2b 32 38 | 29 0d 01 ea 23 71 25 21 |=!(q%+28|)...#q%!|
|00000590| 30 3d 73 61 76 65 25 3a | 71 25 21 34 3d 32 3a c8 |0=save%:|q%!4=2:.|
|000005a0| 99 20 26 34 30 30 43 45 | 2c 2c 71 25 0d 01 f4 19 |. &400CE|,,q%....|
|000005b0| 73 61 76 65 5f 73 70 72 | 69 74 65 25 3d 21 28 71 |save_spr|ite%=!(q|
|000005c0| 25 2b 32 38 29 0d 01 fe | 11 24 66 69 6c 65 6e 61 |%+28)...|.$filena|
|000005d0| 6d 65 25 3d 22 22 0d 02 | 08 18 f2 73 65 74 5f 73 |me%=""..|...set_s|
|000005e0| 61 76 65 5f 74 79 70 65 | 28 26 46 46 46 29 0d 02 |ave_type|(&FFF)..|
|000005f0| 12 44 c8 99 20 22 57 69 | 6d 70 5f 4c 6f 61 64 54 |.D.. "Wi|mp_LoadT|
|00000600| 65 6d 70 6c 61 74 65 22 | 2c 2c 71 25 2c 74 65 6d |emplate"|,,q%,tem|
|00000610| 70 25 2c 69 6e 64 69 72 | 65 6e 64 25 2c 2d 31 2c |p%,indir|end%,-1,|
|00000620| 22 6d 61 69 6e 22 2c 30 | 20 b8 20 2c 2c 74 65 6d |"main",0| . ,,tem|
|00000630| 70 25 0d 02 1c 12 71 25 | 21 36 34 3d 73 70 72 69 |p%....q%|!64=spri|
|00000640| 74 65 73 25 0d 02 26 26 | c8 99 20 22 57 69 6d 70 |tes%..&&|.. "Wimp|
|00000650| 5f 43 72 65 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_CreateW|indow",,|
|00000660| 71 25 20 b8 20 6d 61 69 | 6e 25 0d 02 30 23 71 25 |q% . mai|n%..0#q%|
|00000670| 21 30 3d 6d 61 69 6e 25 | 3a 71 25 21 34 3d 37 3a |!0=main%|:q%!4=7:|
|00000680| c8 99 20 26 34 30 30 43 | 45 2c 2c 71 25 0d 02 3a |.. &400C|E,,q%..:|
|00000690| 1c 6d 61 69 6e 5f 77 72 | 69 74 65 61 62 6c 65 25 |.main_wr|iteable%|
|000006a0| 3d 21 28 71 25 2b 32 38 | 29 0d 02 44 10 6d 61 69 |=!(q%+28|)..D.mai|
|000006b0| 6e 5f 6f 70 65 6e 25 3d | a3 0d 02 4e 1b c8 99 20 |n_open%=|...N... |
|000006c0| 22 57 69 6d 70 5f 43 6c | 6f 73 65 54 65 6d 70 6c |"Wimp_Cl|oseTempl|
|000006d0| 61 74 65 22 0d 02 58 05 | 3a 0d 02 62 10 73 61 76 |ate"..X.|:..b.sav|
|000006e0| 65 5f 74 79 70 65 25 3d | 30 0d 02 6c 12 64 72 61 |e_type%=|0..l.dra|
|000006f0| 67 62 6f 78 73 61 76 65 | 25 3d a3 0d 02 76 05 3a |gboxsave|%=...v.:|
|00000700| 0d 02 80 10 43 4c 45 41 | 52 5f 41 4c 4c 25 3d a3 |....CLEA|R_ALL%=.|
|00000710| 0d 02 8a 16 63 6c 65 61 | 72 5f 73 65 6c 65 63 74 |....clea|r_select|
|00000720| 69 6f 6e 25 3d a3 0d 02 | 94 05 3a 0d 02 9e 12 66 |ion%=...|..:....f|
|00000730| 69 6c 74 65 72 5f 73 61 | 76 65 25 3d a3 0d 02 a8 |ilter_sa|ve%=....|
|00000740| 15 64 72 61 67 62 6f 78 | 5f 73 65 6c 65 63 74 25 |.dragbox|_select%|
|00000750| 3d a3 0d 02 b2 15 64 72 | 61 67 62 6f 78 5f 61 64 |=.....dr|agbox_ad|
|00000760| 6a 75 73 74 25 3d a3 0d | 02 bc 1a 64 72 61 67 62 |just%=..|...dragb|
|00000770| 6f 78 5f 73 65 6c 65 63 | 74 5f 63 68 61 72 25 3d |ox_selec|t_char%=|
|00000780| 30 0d 02 c6 14 77 6f 72 | 6b 5f 78 5f 6d 69 6e 25 |0....wor|k_x_min%|
|00000790| 3d 20 32 31 30 0d 02 d0 | 14 77 6f 72 6b 5f 79 5f |= 210...|.work_y_|
|000007a0| 6d 69 6e 25 3d 2d 38 32 | 34 0d 02 da 14 77 6f 72 |min%=-82|4....wor|
|000007b0| 6b 5f 78 5f 6d 61 78 25 | 3d 20 37 32 34 0d 02 e4 |k_x_max%|= 724...|
|000007c0| 14 77 6f 72 6b 5f 79 5f | 6d 61 78 25 3d 2d 32 34 |.work_y_|max%=-24|
|000007d0| 34 0d 02 ee 05 3a 0d 02 | f8 09 f2 76 61 72 73 0d |4....:..|...vars.|
|000007e0| 03 02 0d f2 61 73 73 65 | 6d 62 6c 65 0d 03 0c 0e |....asse|mble....|
|000007f0| f2 63 68 61 72 5f 69 6e | 69 74 0d 03 16 05 3a 0d |.char_in|it....:.|
|00000800| 03 20 3d c8 99 20 22 58 | 4f 53 5f 52 65 61 64 56 |. =.. "X|OS_ReadV|
|00000810| 61 72 56 61 6c 22 2c 22 | 46 69 6c 74 65 72 24 46 |arVal","|Filter$F|
|00000820| 69 6c 65 54 79 70 65 22 | 2c 71 25 2c 31 30 2c 30 |ileType"|,q%,10,0|
|00000830| 2c 30 20 b8 20 2c 2c 74 | 65 6d 70 25 0d 03 2a 2d |,0 . ,,t|emp%..*-|
|00000840| e7 20 74 65 6d 70 25 20 | 3c 3e 20 30 20 80 20 a4 |. temp% |<> 0 . .|
|00000850| 63 68 6b 68 65 78 28 a4 | 6d 65 6d 74 6f 73 74 72 |chkhex(.|memtostr|
|00000860| 28 71 25 2c 33 29 29 20 | 8c 0d 03 34 27 66 69 6c |(q%,3)) |...4'fil|
|00000870| 74 65 72 5f 74 79 70 65 | 25 3d a0 28 22 26 22 2b |ter_type|%=.("&"+|
|00000880| a4 6d 65 6d 74 6f 73 74 | 72 28 71 25 2c 33 29 29 |.memtost|r(q%,3))|
|00000890| 0d 03 3e 05 cc 0d 03 48 | 15 66 69 6c 74 65 72 5f |..>....H|.filter_|
|000008a0| 74 79 70 65 25 3d 26 30 | 34 33 0d 03 52 05 cd 0d |type%=&0|43..R...|
|000008b0| 03 5c 05 3a 0d 03 66 25 | 63 6f 6d 24 3d a4 66 69 |.\.:..f%|com$=.fi|
|000008c0| 6c 74 65 72 28 a4 63 6f | 6d 6d 61 6e 64 74 61 69 |lter(.co|mmandtai|
|000008d0| 6c 2c 33 32 2c 32 35 35 | 29 0d 03 70 34 e7 20 63 |l,32,255|)..p4. c|
|000008e0| 6f 6d 24 20 3c 3e 20 22 | 22 20 80 20 a4 66 69 6c |om$ <> "|" . .fil|
|000008f0| 65 73 74 79 70 65 28 63 | 6f 6d 24 29 20 3d 20 66 |estype(c|om$) = f|
|00000900| 69 6c 74 65 72 5f 74 79 | 70 65 25 20 8c 0d 03 7a |ilter_ty|pe% ...z|
|00000910| 1a 20 20 20 20 f2 66 69 | 6c 74 65 72 5f 6c 6f 61 |. .fi|lter_loa|
|00000920| 64 28 63 6f 6d 24 29 0d | 03 84 14 20 20 20 20 f2 |d(com$).|... .|
|00000930| 67 65 74 6d 6f 64 65 69 | 6e 66 6f 0d 03 8e 05 cc |getmodei|nfo.....|
|00000940| 0d 03 98 17 f2 72 65 73 | 65 74 5f 66 69 6c 74 65 |.....res|et_filte|
|00000950| 72 5f 73 74 6f 72 65 0d | 03 a2 10 f2 67 65 74 6d |r_store.|....getm|
|00000960| 6f 64 65 69 6e 66 6f 0d | 03 ac 05 cd 0d 03 b6 05 |odeinfo.|........|
|00000970| 3a 0d 03 c0 11 ee 20 85 | 20 f2 65 72 72 6f 72 62 |:..... .| .errorb|
|00000980| 6f 78 0d 03 ca 16 c8 99 | 20 22 48 6f 75 72 67 6c |ox......| "Hourgl|
|00000990| 61 73 73 5f 4f 66 66 22 | 0d 03 d4 05 3a 0d 03 de |ass_Off"|....:...|
|000009a0| 19 c8 99 20 22 57 69 6d | 70 5f 44 72 61 67 42 6f |... "Wim|p_DragBo|
|000009b0| 78 22 2c 2c 2d 31 0d 03 | e8 05 f5 0d 03 f2 1f c8 |x",,-1..|........|
|000009c0| 99 20 22 57 69 6d 70 5f | 50 6f 6c 6c 22 2c 31 2c |. "Wimp_|Poll",1,|
|000009d0| 71 25 20 b8 20 70 6f 6c | 6c 25 0d 03 fc 0e c8 8e |q% . pol|l%......|
|000009e0| 20 70 6f 6c 6c 25 20 ca | 0d 04 06 1c c9 20 31 20 | poll% .|..... 1 |
|000009f0| 3a f2 72 65 64 72 61 77 | 5f 77 69 6e 64 6f 77 28 |:.redraw|_window(|
|00000a00| 21 71 25 29 0d 04 10 42 | c9 20 32 20 3a f2 6f 70 |!q%)...B|. 2 :.op|
|00000a10| 65 6e 5f 77 69 6e 64 6f | 77 28 21 71 25 2c 71 25 |en_windo|w(!q%,q%|
|00000a20| 21 34 2c 71 25 21 38 2c | 71 25 21 31 32 2c 71 25 |!4,q%!8,|q%!12,q%|
|00000a30| 21 31 36 2c 71 25 21 32 | 30 2c 71 25 21 32 34 2c |!16,q%!2|0,q%!24,|
|00000a40| 71 25 21 32 38 29 0d 04 | 1a 1b c9 20 33 20 3a f2 |q%!28)..|... 3 :.|
|00000a50| 63 6c 6f 73 65 61 77 69 | 6e 64 6f 77 28 21 71 25 |closeawi|ndow(!q%|
|00000a60| 29 0d 04 24 35 c9 20 36 | 20 3a f2 63 68 65 63 6b |)..$5. 6| :.check|
|00000a70| 6d 6f 75 73 65 28 21 71 | 25 2c 71 25 21 34 2c 71 |mouse(!q|%,q%!4,q|
|00000a80| 25 21 38 2c 71 25 21 31 | 32 2c 71 25 21 31 36 2c |%!8,q%!1|2,q%!16,|
|00000a90| 71 25 21 32 30 29 0d 04 | 2e 15 c9 20 37 20 3a f2 |q%!20)..|... 7 :.|
|00000aa0| 64 72 61 67 62 6f 78 28 | 71 25 29 0d 04 38 09 c9 |dragbox(|q%)..8..|
|00000ab0| 20 38 20 3a 0d 04 42 12 | e7 20 71 25 21 30 3d 73 | 8 :..B.|. q%!0=s|
|00000ac0| 61 76 65 25 20 8c 0d 04 | 4c 10 20 20 c8 8e 20 71 |ave% ...|L. .. q|
|00000ad0| 25 21 32 34 20 ca 0d 04 | 56 20 20 20 c9 20 32 37 |%!24 ...|V . 27|
|00000ae0| 20 3a f2 63 6c 6f 73 65 | 61 77 69 6e 64 6f 77 28 | :.close|awindow(|
|00000af0| 73 61 76 65 25 29 0d 04 | 60 28 20 20 c9 20 31 33 |save%)..|`( . 13|
|00000b00| 20 3a f2 63 68 65 63 6b | 6d 6f 75 73 65 28 30 2c | :.check|mouse(0,|
|00000b10| 30 2c 34 2c 73 61 76 65 | 25 2c 31 2c 30 29 0d 04 |0,4,save|%,1,0)..|
|00000b20| 6a 07 20 20 cb 0d 04 74 | 07 20 20 cd 0d 04 7e 18 |j. ...t|. ...~.|
|00000b30| c9 20 39 20 3a f2 6d 65 | 6e 75 73 65 6c 65 63 74 |. 9 :.me|nuselect|
|00000b40| 28 71 25 29 0d 04 88 18 | c9 20 31 37 2c 31 38 3a |(q%)....|. 17,18:|
|00000b50| f2 72 65 63 65 69 76 65 | 28 71 25 29 0d 04 92 05 |.receive|(q%)....|
|00000b60| cb 0d 04 9c 07 fd 20 a3 | 0d 04 a6 05 e0 0d 04 b0 |...... .|........|
|00000b70| 05 3a 0d 04 ba 12 dd 20 | f2 72 65 63 65 69 76 65 |.:..... |.receive|
|00000b80| 28 71 25 29 0d 04 c4 0e | c8 8e 20 71 25 21 31 36 |(q%)....|.. q%!16|
|00000b90| 20 ca 0d 04 ce 11 c9 20 | 30 20 3a 20 f2 66 69 6e | ...... |0 : .fin|
|00000ba0| 69 73 68 0d 04 d8 17 c9 | 20 31 20 3a 20 f2 64 61 |ish.....| 1 : .da|
|00000bb0| 74 61 73 61 76 65 28 71 | 25 29 0d 04 e2 1a c9 20 |tasave(q|%)..... |
|00000bc0| 32 20 3a 20 f2 64 61 74 | 61 73 61 76 65 61 63 6b |2 : .dat|asaveack|
|00000bd0| 28 71 25 29 0d 04 ec 17 | c9 20 33 20 3a 20 f2 64 |(q%)....|. 3 : .d|
|00000be0| 61 74 61 6c 6f 61 64 28 | 71 25 29 0d 04 f6 1a c9 |ataload(|q%).....|
|00000bf0| 20 34 20 3a 20 f2 64 61 | 74 61 6c 6f 61 64 61 63 | 4 : .da|taloadac|
|00000c00| 6b 28 71 25 29 0d 05 00 | 30 c9 20 35 20 3a 20 e7 |k(q%)...|0. 5 : .|
|00000c10| 20 71 25 21 34 30 20 3d | 20 66 69 6c 74 65 72 5f | q%!40 =| filter_|
|00000c20| 74 79 70 65 25 20 8c 20 | f2 64 61 74 61 6c 6f 61 |type% . |.dataloa|
|00000c30| 64 28 71 25 29 0d 05 0a | 19 c9 20 26 34 30 30 43 |d(q%)...|.. &400C|
|00000c40| 31 3a f2 67 65 74 6d 6f | 64 65 69 6e 66 6f 0d 05 |1:.getmo|deinfo..|
|00000c50| 14 05 cb 0d 05 1e 05 e1 | 0d 05 28 05 3a 0d 05 32 |........|..(.:..2|
|00000c60| 2d dd 20 f2 63 68 65 63 | 6b 6d 6f 75 73 65 28 78 |-. .chec|kmouse(x|
|00000c70| 25 2c 79 25 2c 62 25 2c | 77 68 61 6e 64 25 2c 69 |%,y%,b%,|whand%,i|
|00000c80| 68 61 6e 64 25 2c 6f 62 | 25 29 0d 05 3c 0f c8 8e |hand%,ob|%)..<...|
|00000c90| 20 77 68 61 6e 64 25 20 | ca 0d 05 46 08 c9 20 2d | whand% |...F.. -|
|00000ca0| 32 0d 05 50 0c e7 20 62 | 25 3d 34 20 8c 0d 05 5a |2..P.. b|%=4 ...Z|
|00000cb0| 1a 20 20 f2 63 6c 6f 73 | 65 61 77 69 6e 64 6f 77 |. .clos|eawindow|
|00000cc0| 28 73 61 76 65 25 29 0d | 05 64 14 20 20 e7 20 6d |(save%).|.d. . m|
|00000cd0| 61 69 6e 5f 6f 70 65 6e | 25 20 8c 0d 05 6e 15 20 |ain_open|% ...n. |
|00000ce0| 20 20 20 f2 66 72 6f 6e | 74 28 6d 61 69 6e 25 29 | .fron|t(main%)|
|00000cf0| 0d 05 78 07 20 20 cc 0d | 05 82 15 20 20 20 20 f2 |..x. ..|... .|
|00000d00| 66 72 6f 6e 74 28 6d 61 | 69 6e 25 29 0d 05 8c 07 |front(ma|in%)....|
|00000d10| 20 20 cd 0d 05 96 05 cd | 0d 05 a0 95 e7 20 62 25 | ......|..... b%|
|00000d20| 3d 32 20 8c 20 f2 63 6c | 6f 73 65 61 77 69 6e 64 |=2 . .cl|oseawind|
|00000d30| 6f 77 28 73 61 76 65 25 | 29 3a f2 73 65 74 5f 73 |ow(save%|):.set_s|
|00000d40| 61 76 65 5f 74 79 70 65 | 28 66 69 6c 74 65 72 5f |ave_type|(filter_|
|00000d50| 74 79 70 65 25 29 3a 24 | 66 69 6c 65 6e 61 6d 65 |type%):$|filename|
|00000d60| 25 3d 22 46 69 6c 74 65 | 72 22 3a 66 69 6c 74 65 |%="Filte|r":filte|
|00000d70| 72 5f 73 61 76 65 25 3d | b9 3a f2 64 6f 6d 65 6e |r_save%=|.:.domen|
|00000d80| 75 28 31 2c 6d 65 6e 75 | 62 75 66 25 2c 6d 65 6e |u(1,menu|buf%,men|
|00000d90| 75 24 2c 70 72 6f 67 5f | 74 69 74 6c 65 24 2c 78 |u$,prog_|title$,x|
|00000da0| 25 2d 36 34 2c 39 36 2b | 33 2a 34 30 29 0d 05 aa |%-64,96+|3*40)...|
|00000db0| 0b c9 20 73 61 76 65 25 | 0d 05 b4 11 20 20 c8 8e |.. save%|.... ..|
|00000dc0| 20 69 68 61 6e 64 25 20 | ca 0d 05 be 0b 20 20 20 | ihand% |..... |
|00000dd0| 20 c9 20 32 0d 05 c8 14 | 20 20 20 20 20 20 e7 20 | . 2....| . |
|00000de0| 62 25 20 3d 20 34 20 8c | 0d 05 d2 77 20 20 20 20 |b% = 4 .|...w |
|00000df0| 20 20 71 25 21 30 3d 73 | 61 76 65 25 3a c8 99 20 | q%!0=s|ave%:.. |
|00000e00| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|00000e10| 74 61 74 65 22 2c 2c 71 | 25 3a 77 65 78 3d 71 25 |tate",,q|%:wex=q%|
|00000e20| 21 34 2d 71 25 21 32 30 | 3a 77 65 79 3d 71 25 21 |!4-q%!20|:wey=q%!|
|00000e30| 31 36 2d 71 25 21 32 34 | 3a 71 25 21 34 3d 69 68 |16-q%!24|:q%!4=ih|
|00000e40| 61 6e 64 25 3a c8 99 20 | 22 57 69 6d 70 5f 47 65 |and%:.. |"Wimp_Ge|
|00000e50| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 71 25 0d |tIconSta|te",,q%.|
|00000e60| 05 dc 68 20 20 20 20 20 | 20 21 71 25 3d 73 61 76 |..h | !q%=sav|
|00000e70| 65 25 3a 71 25 21 34 3d | 35 3a 71 25 21 38 3d 71 |e%:q%!4=|5:q%!8=q|
|00000e80| 25 21 38 2b 77 65 78 3a | 71 25 21 31 32 3d 71 25 |%!8+wex:|q%!12=q%|
|00000e90| 21 31 32 2b 77 65 79 3a | 71 25 21 31 36 3d 71 25 |!12+wey:|q%!16=q%|
|00000ea0| 21 31 36 2b 77 65 78 3a | 71 25 21 32 30 3d 71 25 |!16+wex:|q%!20=q%|
|00000eb0| 21 32 30 2b 77 65 79 3a | 71 25 21 32 34 3d 30 3a |!20+wey:|q%!24=0:|
|00000ec0| 71 25 21 32 38 3d 30 0d | 05 e6 3f 20 20 20 20 20 |q%!28=0.|..? |
|00000ed0| 20 71 25 21 33 32 3d 26 | 37 46 46 46 46 46 46 46 | q%!32=&|7FFFFFFF|
|00000ee0| 3a 71 25 21 33 36 3d 26 | 37 46 46 46 46 46 46 46 |:q%!36=&|7FFFFFFF|
|00000ef0| 3a c8 99 20 22 57 69 6d | 70 5f 44 72 61 67 42 6f |:.. "Wim|p_DragBo|
|00000f00| 78 22 2c 2c 71 25 0d 05 | f0 18 20 20 20 20 20 20 |x",,q%..|.. |
|00000f10| 64 72 61 67 62 6f 78 73 | 61 76 65 25 3d b9 0d 05 |dragboxs|ave%=...|
|00000f20| fa 0b 20 20 20 20 20 20 | cd 0d 06 04 0b 20 20 20 |.. |..... |
|00000f30| 20 c9 20 31 0d 06 0e 14 | 20 20 20 20 20 20 e7 20 | . 1....| . |
|00000f40| 62 25 20 3d 20 34 20 8c | 0d 06 18 2e 20 20 20 20 |b% = 4 .|.... |
|00000f50| 20 20 20 20 e7 20 a4 6c | 65 61 66 28 24 66 69 6c | . .l|eaf($fil|
|00000f60| 65 6e 61 6d 65 25 29 20 | 3d 20 24 66 69 6c 65 6e |ename%) |= $filen|
|00000f70| 61 6d 65 25 20 8c 0d 06 | 22 47 20 20 20 20 20 20 |ame% ...|"G |
|00000f80| 20 20 20 20 f2 77 61 72 | 6e 69 6e 67 28 22 54 6f | .war|ning("To|
|00000f90| 20 73 61 76 65 20 64 72 | 61 67 20 74 68 65 20 69 | save dr|ag the i|
|00000fa0| 63 6f 6e 20 74 6f 20 61 | 20 64 69 72 65 63 74 6f |con to a| directo|
|00000fb0| 72 79 20 64 69 73 70 6c | 61 79 2e 22 29 0d 06 2c |ry displ|ay.")..,|
|00000fc0| 0d 20 20 20 20 20 20 20 | 20 cc 0d 06 36 1e 20 20 |. | ...6. |
|00000fd0| 20 20 20 20 20 20 20 20 | e7 20 66 69 6c 74 65 72 | |. filter|
|00000fe0| 5f 73 61 76 65 25 20 8c | 0d 06 40 28 20 20 20 20 |_save% .|..@( |
|00000ff0| 20 20 20 20 20 20 20 20 | f2 66 69 6c 74 65 72 5f | |.filter_|
|00001000| 73 61 76 65 28 24 66 69 | 6c 65 6e 61 6d 65 25 29 |save($fi|lename%)|
|00001010| 0d 06 4a 0f 20 20 20 20 | 20 20 20 20 20 20 cc 0d |..J. | ..|
|00001020| 06 54 32 20 20 20 20 20 | 20 20 20 20 20 20 20 f2 |.T2 | .|
|00001030| 66 69 6c 74 65 72 5f 66 | 69 6c 65 28 72 6f 6f 74 |filter_f|ile(root|
|00001040| 6e 61 6d 65 24 2c 24 66 | 69 6c 65 6e 61 6d 65 25 |name$,$f|ilename%|
|00001050| 29 0d 06 5e 0f 20 20 20 | 20 20 20 20 20 20 20 cd |)..^. | .|
|00001060| 0d 06 68 24 20 20 20 20 | 20 20 20 20 20 20 20 20 |..h$ | |
|00001070| f2 63 6c 6f 73 65 61 77 | 69 6e 64 6f 77 28 73 61 |.closeaw|indow(sa|
|00001080| 76 65 25 29 0d 06 72 0d | 20 20 20 20 20 20 20 20 |ve%)..r.| |
|00001090| cd 0d 06 7c 0b 20 20 20 | 20 20 20 cd 0d 06 86 07 |...|. | .....|
|000010a0| 20 20 cb 0d 06 90 0b c9 | 20 6d 61 69 6e 25 0d 06 | ......| main%..|
|000010b0| 9a 18 f2 63 6c 6f 73 65 | 61 77 69 6e 64 6f 77 28 |...close|awindow(|
|000010c0| 73 61 76 65 25 29 0d 06 | a4 0c e7 20 62 25 3d 32 |save%)..|... b%=2|
|000010d0| 20 8c 0d 06 ae 75 f2 73 | 65 74 5f 73 61 76 65 5f | ....u.s|et_save_|
|000010e0| 74 79 70 65 28 66 69 6c | 74 65 72 5f 74 79 70 65 |type(fil|ter_type|
|000010f0| 25 29 3a 24 66 69 6c 65 | 6e 61 6d 65 25 3d 22 46 |%):$file|name%="F|
|00001100| 69 6c 74 65 72 22 3a 66 | 69 6c 74 65 72 5f 73 61 |ilter":f|ilter_sa|
|00001110| 76 65 25 3d b9 3a f2 64 | 6f 6d 65 6e 75 28 31 2c |ve%=.:.d|omenu(1,|
|00001120| 6d 65 6e 75 62 75 66 25 | 2c 6d 65 6e 75 24 2c 70 |menubuf%|,menu$,p|
|00001130| 72 6f 67 5f 74 69 74 6c | 65 24 2c 78 25 2d 36 34 |rog_titl|e$,x%-64|
|00001140| 2c 79 25 2b 32 34 29 0d | 06 b8 05 cc 0d 06 c2 38 |,y%+24).|.......8|
|00001150| 20 20 20 20 e7 20 62 25 | 3d 34 20 8c 20 63 6c 65 | . b%|=4 . cle|
|00001160| 61 72 5f 73 65 6c 65 63 | 74 69 6f 6e 25 3d b9 20 |ar_selec|tion%=. |
|00001170| 8b 20 63 6c 65 61 72 5f | 73 65 6c 65 63 74 69 6f |. clear_|selectio|
|00001180| 6e 25 3d a3 0d 06 cc 11 | 20 20 c8 8e 20 69 68 61 |n%=.....| .. iha|
|00001190| 6e 64 25 20 ca 0d 06 d6 | 20 20 20 20 20 c9 20 31 |nd% ....| . 1|
|000011a0| 31 3a f2 72 65 73 65 74 | 5f 66 69 6c 74 65 72 5f |1:.reset|_filter_|
|000011b0| 73 74 6f 72 65 0d 06 e0 | 44 20 20 20 20 c9 20 20 |store...|D . |
|000011c0| 34 3a f2 66 69 6c 74 65 | 72 5f 66 69 6c 74 65 72 |4:.filte|r_filter|
|000011d0| 5f 73 74 6f 72 65 28 22 | 41 4e 44 22 2c a4 68 65 |_store("|AND",.he|
|000011e0| 78 5f 73 74 72 28 6d 61 | 69 6e 5f 77 72 69 74 65 |x_str(ma|in_write|
|000011f0| 61 62 6c 65 25 2c 32 29 | 29 0d 06 ea 43 20 20 20 |able%,2)|)...C |
|00001200| 20 c9 20 20 35 3a f2 66 | 69 6c 74 65 72 5f 66 69 | . 5:.f|ilter_fi|
|00001210| 6c 74 65 72 5f 73 74 6f | 72 65 28 22 4f 52 22 2c |lter_sto|re("OR",|
|00001220| a4 68 65 78 5f 73 74 72 | 28 6d 61 69 6e 5f 77 72 |.hex_str|(main_wr|
|00001230| 69 74 65 61 62 6c 65 25 | 2c 32 29 29 0d 06 f4 44 |iteable%|,2))...D|
|00001240| 20 20 20 20 c9 20 20 36 | 3a f2 66 69 6c 74 65 72 | . 6|:.filter|
|00001250| 5f 66 69 6c 74 65 72 5f | 73 74 6f 72 65 28 22 45 |_filter_|store("E|
|00001260| 4f 52 22 2c a4 68 65 78 | 5f 73 74 72 28 6d 61 69 |OR",.hex|_str(mai|
|00001270| 6e 5f 77 72 69 74 65 61 | 62 6c 65 25 2c 32 29 29 |n_writea|ble%,2))|
|00001280| 0d 06 fe 1e 20 20 20 20 | c9 20 20 38 3a f2 6e 6f |.... |. 8:.no|
|00001290| 74 5f 66 69 6c 74 65 72 | 5f 73 74 6f 72 65 0d 07 |t_filter|_store..|
|000012a0| 08 18 20 20 20 20 c9 20 | 20 39 3a f2 73 65 6c 65 |.. . | 9:.sele|
|000012b0| 63 74 5f 61 6c 6c 0d 07 | 12 1a 20 20 20 20 c9 20 |ct_all..|.. . |
|000012c0| 31 30 3a f2 63 6c 65 61 | 72 5f 61 6c 6c 28 b9 29 |10:.clea|r_all(.)|
|000012d0| 0d 07 1c 18 20 20 20 20 | c9 20 31 33 3a f2 66 69 |.... |. 13:.fi|
|000012e0| 6c 74 65 72 5f 6f 75 74 | 0d 07 26 07 20 20 7f 0d |lter_out|..&. ..|
|000012f0| 07 30 24 20 20 20 20 e7 | 20 a4 63 6f 6f 72 64 73 |.0$ .| .coords|
|00001300| 74 6f 63 68 61 72 28 78 | 25 2c 79 25 29 3c 3e 2d |tochar(x|%,y%)<>-|
|00001310| 31 20 8c 0d 07 3a 14 20 | 20 20 20 20 20 e7 20 ac |1 ...:. | . .|
|00001320| 20 a6 20 2d 31 20 8c 0d | 07 44 14 20 20 20 20 20 | . -1 ..|.D. |
|00001330| 20 20 20 e7 20 62 25 3d | 34 20 8c 0d 07 4e 1b 20 | . b%=|4 ...N. |
|00001340| 20 20 20 20 20 20 20 20 | 20 f2 63 6c 65 61 72 5f | | .clear_|
|00001350| 61 6c 6c 28 b9 29 0d 07 | 58 32 20 20 20 20 20 20 |all(.)..|X2 |
|00001360| 20 20 20 20 f2 74 6f 67 | 67 6c 65 5f 73 65 6c 65 | .tog|gle_sele|
|00001370| 63 74 28 a4 63 6f 6f 72 | 64 73 74 6f 63 68 61 72 |ct(.coor|dstochar|
|00001380| 28 78 25 2c 79 25 29 29 | 0d 07 62 11 20 20 20 20 |(x%,y%))|..b. |
|00001390| 20 20 20 20 20 20 74 3d | 91 0d 07 6c 20 20 20 20 | t=|...l |
|000013a0| 20 20 20 20 20 20 20 c8 | 95 28 28 91 3c 74 2b 35 | .|.((.<t+5|
|000013b0| 29 80 28 62 25 80 35 29 | 29 0d 07 76 24 20 20 20 |).(b%.5)|)..v$ |
|000013c0| 20 20 20 20 20 20 20 20 | 20 c8 99 20 22 4f 53 5f | | .. "OS_|
|000013d0| 4d 6f 75 73 65 22 20 b8 | 20 2c 2c 62 25 0d 07 80 |Mouse" .| ,,b%...|
|000013e0| 0f 20 20 20 20 20 20 20 | 20 20 20 ce 0d 07 8a 0d |. | .....|
|000013f0| 20 20 20 20 20 20 20 20 | cd 0d 07 94 14 20 20 20 | |..... |
|00001400| 20 20 20 20 20 e7 20 62 | 25 3d 31 20 8c 0d 07 9e | . b|%=1 ....|
|00001410| 32 20 20 20 20 20 20 20 | 20 20 20 f2 74 6f 67 67 |2 | .togg|
|00001420| 6c 65 5f 73 65 6c 65 63 | 74 28 a4 63 6f 6f 72 64 |le_selec|t(.coord|
|00001430| 73 74 6f 63 68 61 72 28 | 78 25 2c 79 25 29 29 0d |stochar(|x%,y%)).|
|00001440| 07 a8 11 20 20 20 20 20 | 20 20 20 20 20 74 3d 91 |... | t=.|
|00001450| 0d 07 b2 21 20 20 20 20 | 20 20 20 20 20 20 c8 95 |...! | ..|
|00001460| 28 28 91 3c 74 2b 32 30 | 29 80 28 62 25 80 35 29 |((.<t+20|).(b%.5)|
|00001470| 29 0d 07 bc 24 20 20 20 | 20 20 20 20 20 20 20 20 |)...$ | |
|00001480| 20 c8 99 20 22 4f 53 5f | 4d 6f 75 73 65 22 20 b8 | .. "OS_|Mouse" .|
|00001490| 20 2c 2c 62 25 0d 07 c6 | 0f 20 20 20 20 20 20 20 | ,,b%...|. |
|000014a0| 20 20 20 ce 0d 07 d0 0d | 20 20 20 20 20 20 20 20 | .....| |
|000014b0| cd 0d 07 da 14 20 20 20 | 20 20 20 20 20 e7 20 62 |..... | . b|
|000014c0| 25 80 35 20 8c 0d 07 e4 | 32 20 20 20 20 20 20 20 |%.5 ....|2 |
|000014d0| 20 20 20 f2 74 6f 67 67 | 6c 65 5f 73 65 6c 65 63 | .togg|le_selec|
|000014e0| 74 28 a4 63 6f 6f 72 64 | 73 74 6f 63 68 61 72 28 |t(.coord|stochar(|
|000014f0| 78 25 2c 79 25 29 29 0d | 07 ee 62 20 20 20 20 20 |x%,y%)).|..b |
|00001500| 20 20 20 20 20 21 71 25 | 3d 6d 61 69 6e 25 3a c8 | !q%|=main%:.|
|00001510| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00001520| 77 53 74 61 74 65 22 2c | 2c 71 25 3a 71 25 21 32 |wState",|,q%:q%!2|
|00001530| 34 3d 71 25 21 34 3a 71 | 25 21 32 38 3d 71 25 21 |4=q%!4:q|%!28=q%!|
|00001540| 38 3a 71 25 21 33 32 3d | 71 25 21 31 32 3a 71 25 |8:q%!32=|q%!12:q%|
|00001550| 21 33 36 3d 71 25 21 31 | 36 0d 07 f8 30 20 20 20 |!36=q%!1|6...0 |
|00001560| 20 20 20 20 20 20 20 71 | 25 21 38 3d 78 25 3a 71 | q|%!8=x%:q|
|00001570| 25 21 31 32 3d 79 25 3a | 71 25 21 31 36 3d 78 25 |%!12=y%:|q%!16=x%|
|00001580| 3a 71 25 21 32 30 3d 79 | 25 0d 08 02 2a 20 20 20 |:q%!20=y|%...* |
|00001590| 20 20 20 20 20 20 20 71 | 25 21 34 3d 36 3a c8 99 | q|%!4=6:..|
|000015a0| 20 22 57 69 6d 70 5f 44 | 72 61 67 42 6f 78 22 2c | "Wimp_D|ragBox",|
|000015b0| 2c 71 25 0d 08 0c 1f 20 | 20 20 20 20 20 20 20 20 |,q%.... | |
|000015c0| 20 64 72 61 67 62 6f 78 | 5f 61 64 6a 75 73 74 25 | dragbox|_adjust%|
|000015d0| 3d b9 0d 08 16 0d 20 20 | 20 20 20 20 20 20 cd 0d |=..... | ..|
|000015e0| 08 20 0b 20 20 20 20 20 | 20 cd 0d 08 2a 19 20 20 |. . | ...*. |
|000015f0| 20 20 20 20 e7 20 62 25 | 3d 34 20 80 20 a6 20 2d | . b%|=4 . . -|
|00001600| 31 20 8c 0d 08 34 32 20 | 20 20 20 20 20 20 20 21 |1 ...42 | !|
|00001610| 71 25 3d 6d 61 69 6e 25 | 3a c8 99 20 22 57 69 6d |q%=main%|:.. "Wim|
|00001620| 70 5f 47 65 74 57 69 6e | 64 6f 77 53 74 61 74 65 |p_GetWin|dowState|
|00001630| 22 2c 2c 71 25 0d 08 3e | 0d 20 20 20 20 20 20 20 |",,q%..>|. |
|00001640| 20 3a 0d 08 48 4f 20 20 | 20 20 20 20 20 20 78 25 | :..HO | x%|
|00001650| 3d 28 28 78 25 2d 28 71 | 25 21 34 2b 6c 65 66 74 |=((x%-(q|%!4+left|
|00001660| 6d 61 72 67 69 6e 25 2d | 71 25 21 32 30 2b 28 28 |margin%-|q%!20+((|
|00001670| 31 36 2d 78 5f 73 70 61 | 63 69 6e 67 25 29 3e 3e |16-x_spa|cing%)>>|
|00001680| 31 29 29 29 81 20 78 5f | 73 70 61 63 69 6e 67 25 |1))). x_|spacing%|
|00001690| 29 0d 08 52 4f 20 20 20 | 20 20 20 20 20 79 25 3d |)..RO | y%=|
|000016a0| 28 28 71 25 21 31 36 2d | 74 6f 70 6d 61 72 67 69 |((q%!16-|topmargi|
|000016b0| 6e 25 2d 71 25 21 32 34 | 2b 28 28 79 5f 73 70 61 |n%-q%!24|+((y_spa|
|000016c0| 63 69 6e 67 25 2d 33 32 | 29 3e 3e 31 29 2d 79 25 |cing%-32|)>>1)-y%|
|000016d0| 29 81 20 79 5f 73 70 61 | 63 69 6e 67 25 29 2b 31 |). y_spa|cing%)+1|
|000016e0| 0d 08 5c 43 20 20 20 20 | 20 20 20 20 64 72 61 67 |..\C | drag|
|000016f0| 62 6f 78 5f 73 65 6c 65 | 63 74 5f 63 68 61 72 25 |box_sele|ct_char%|
|00001700| 3d 3f 28 66 69 6c 74 65 | 72 5f 73 74 6f 72 65 2b |=?(filte|r_store+|
|00001710| 28 28 79 25 2d 32 29 2a | 31 36 29 2b 28 78 25 2d |((y%-2)*|16)+(x%-|
|00001720| 31 29 29 0d 08 66 4c 20 | 20 20 20 20 20 20 20 78 |1))..fL | x|
|00001730| 25 3d 28 78 25 2a 78 5f | 73 70 61 63 69 6e 67 25 |%=(x%*x_|spacing%|
|00001740| 29 2b 28 71 25 21 34 2b | 6c 65 66 74 6d 61 72 67 |)+(q%!4+|leftmarg|
|00001750| 69 6e 25 2d 71 25 21 32 | 30 2b 28 28 31 36 2d 78 |in%-q%!2|0+((16-x|
|00001760| 5f 73 70 61 63 69 6e 67 | 25 29 3e 3e 31 29 29 0d |_spacing|%)>>1)).|
|00001770| 08 70 4c 20 20 20 20 20 | 20 20 20 79 25 3d 71 25 |.pL | y%=q%|
|00001780| 21 31 36 2d 74 6f 70 6d | 61 72 67 69 6e 25 2d 71 |!16-topm|argin%-q|
|00001790| 25 21 32 34 2b 28 28 79 | 5f 73 70 61 63 69 6e 67 |%!24+((y|_spacing|
|000017a0| 25 2d 33 32 29 3e 3e 31 | 29 2d 28 79 25 2a 79 5f |%-32)>>1|)-(y%*y_|
|000017b0| 73 70 61 63 69 6e 67 25 | 29 2b 34 0d 08 7a 0d 20 |spacing%|)+4..z. |
|000017c0| 20 20 20 20 20 20 20 3a | 0d 08 84 39 20 20 20 20 | :|...9 |
|000017d0| 20 20 20 20 71 25 21 32 | 34 3d 71 25 21 34 3a 71 | q%!2|4=q%!4:q|
|000017e0| 25 21 32 38 3d 71 25 21 | 38 3a 71 25 21 33 32 3d |%!28=q%!|8:q%!32=|
|000017f0| 71 25 21 31 32 3a 71 25 | 21 33 36 3d 71 25 21 31 |q%!12:q%|!36=q%!1|
|00001800| 36 0d 08 8e 44 20 20 20 | 20 20 20 20 20 71 25 21 |6...D | q%!|
|00001810| 38 3d 78 25 3a 71 25 21 | 31 32 3d 79 25 3a 71 25 |8=x%:q%!|12=y%:q%|
|00001820| 21 31 36 3d 78 25 2b 78 | 5f 73 70 61 63 69 6e 67 |!16=x%+x|_spacing|
|00001830| 25 3a 71 25 21 32 30 3d | 79 25 2b 79 5f 73 70 61 |%:q%!20=|y%+y_spa|
|00001840| 63 69 6e 67 25 0d 08 98 | 28 20 20 20 20 20 20 20 |cing%...|( |
|00001850| 20 71 25 21 34 3d 35 3a | c8 99 20 22 57 69 6d 70 | q%!4=5:|.. "Wimp|
|00001860| 5f 44 72 61 67 42 6f 78 | 22 2c 2c 71 25 0d 08 a2 |_DragBox|",,q%...|
|00001870| 1d 20 20 20 20 20 20 20 | 20 64 72 61 67 62 6f 78 |. | dragbox|
|00001880| 5f 73 65 6c 65 63 74 25 | 3d b9 0d 08 ac 0b 20 20 |_select%|=..... |
|00001890| 20 20 20 20 cd 0d 08 b6 | 09 20 20 20 20 cd 0d 08 | ....|. ...|
|000018a0| c0 07 20 20 cb 0d 08 ca | 05 cd 0d 08 d4 05 cb 0d |.. ....|........|
|000018b0| 08 de 05 e1 0d 08 e8 05 | 3a 0d 08 f2 34 dd 20 f2 |........|:...4. .|
|000018c0| 64 6f 6d 65 6e 75 28 68 | 61 6e 64 6c 65 25 2c 6d |domenu(h|andle%,m|
|000018d0| 65 6e 75 70 74 72 25 2c | 6d 65 6e 75 24 2c 6d 65 |enuptr%,|menu$,me|
|000018e0| 6e 75 74 69 74 6c 65 24 | 2c 78 2c 79 29 0d 08 fc |nutitle$|,x,y)...|
|000018f0| 12 ea 20 64 75 6d 6d 79 | 25 2c 6e 65 78 74 25 0d |.. dummy|%,next%.|
|00001900| 09 06 14 6e 65 78 74 25 | 3d 6d 65 6e 75 70 74 72 |...next%|=menuptr|
|00001910| 25 2b 34 0d 09 10 16 6d | 65 6e 75 70 74 72 25 21 |%+4....m|enuptr%!|
|00001920| 30 3d 68 61 6e 64 6c 65 | 25 0d 09 1a 27 64 75 6d |0=handle|%...'dum|
|00001930| 6d 79 25 3d a4 63 5f 6d | 28 6e 65 78 74 25 2c 6d |my%=.c_m|(next%,m|
|00001940| 65 6e 75 24 2c 6d 65 6e | 75 74 69 74 6c 65 24 29 |enu$,men|utitle$)|
|00001950| 0d 09 24 24 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |..$$.. "|Wimp_Cre|
|00001960| 61 74 65 4d 65 6e 75 22 | 2c 2c 64 75 6d 6d 79 25 |ateMenu"|,,dummy%|
|00001970| 2c 78 2c 79 0d 09 2e 05 | e1 0d 09 38 05 3a 0d 09 |,x,y....|...8.:..|
|00001980| 42 25 dd 20 a4 63 5f 6d | 28 6d 65 6e 75 70 74 72 |B%. .c_m|(menuptr|
|00001990| 25 2c 6d 65 6e 75 24 2c | 6d 65 6e 75 74 69 74 6c |%,menu$,|menutitl|
|000019a0| 65 24 29 0d 09 4c 16 ea | 20 69 25 2c 63 61 6c 6c |e$)..L..| i%,call|
|000019b0| 25 2c 69 74 65 6d 24 2c | 77 0d 09 56 12 63 61 6c |%,item$,|w..V.cal|
|000019c0| 6c 25 3d 6d 65 6e 75 70 | 74 72 25 0d 09 60 11 77 |l%=menup|tr%..`.w|
|000019d0| 3d a9 6d 65 6e 75 74 69 | 74 6c 65 24 0d 09 6a 0d |=.menuti|tle$..j.|
|000019e0| 6e 65 78 74 25 2b 3d 35 | 32 0d 09 74 11 e3 20 69 |next%+=5|2..t.. i|
|000019f0| 25 3d 30 b8 a9 6d 65 6e | 75 24 0d 09 7e 22 e7 20 |%=0..men|u$..~". |
|00001a00| c1 6d 65 6e 75 24 2c 69 | 25 2c 31 29 3d 22 2c 22 |.menu$,i|%,1)=","|
|00001a10| 20 8c 20 6e 65 78 74 25 | 2b 3d 32 34 0d 09 88 05 | . next%|+=24....|
|00001a20| ed 0d 09 92 08 69 25 3d | 30 0d 09 9c 12 6d 65 6e |.....i%=|0....men|
|00001a30| 75 70 74 72 25 21 32 30 | 3d 34 30 0d 09 a6 18 24 |uptr%!20|=40....$|
|00001a40| 6d 65 6e 75 70 74 72 25 | 3d 6d 65 6e 75 74 69 74 |menuptr%|=menutit|
|00001a50| 6c 65 24 0d 09 b0 47 6d | 65 6e 75 70 74 72 25 3f |le$...Gm|enuptr%?|
|00001a60| 31 32 3d 74 66 63 6f 6c | 3a 6d 65 6e 75 70 74 72 |12=tfcol|:menuptr|
|00001a70| 25 3f 31 33 3d 32 3a 6d | 65 6e 75 70 74 72 25 3f |%?13=2:m|enuptr%?|
|00001a80| 31 34 3d 77 66 63 6f 6c | 3a 6d 65 6e 75 70 74 72 |14=wfcol|:menuptr|
|00001a90| 25 3f 31 35 3d 6d 62 63 | 6f 6c 0d 09 ba 11 6d 65 |%?15=mbc|ol....me|
|00001aa0| 6e 75 70 74 72 25 21 32 | 34 3d 30 0d 09 c4 10 6d |nuptr%!2|4=0....m|
|00001ab0| 65 6e 75 70 74 72 25 2b | 3d 32 38 0d 09 ce 05 f5 |enuptr%+|=28.....|
|00001ac0| 0d 09 d8 1c 69 74 65 6d | 24 3d a4 70 61 72 28 6d |....item|$=.par(m|
|00001ad0| 65 6e 75 24 2c 22 2c 22 | 2c 69 25 29 0d 09 e2 40 |enu$,","|,i%)...@|
|00001ae0| f4 20 49 46 20 49 4e 53 | 54 52 28 69 74 65 6d 24 |. IF INS|TR(item$|
|00001af0| 2c 22 2e 22 29 20 3d 20 | 30 20 41 4e 44 20 4c 45 |,".") = |0 AND LE|
|00001b00| 4e 69 74 65 6d 24 20 3e | 20 77 20 54 48 45 4e 20 |Nitem$ >| w THEN |
|00001b10| 77 20 3d 20 4c 45 4e 69 | 74 65 6d 24 0d 09 ec 37 |w = LENi|tem$...7|
|00001b20| f4 20 49 46 20 49 4e 53 | 54 52 28 69 74 65 6d 24 |. IF INS|TR(item$|
|00001b30| 2c 22 2e 22 29 20 3e 20 | 77 20 54 48 45 4e 20 77 |,".") > |w THEN w|
|00001b40| 20 3d 20 49 4e 53 54 52 | 28 69 74 65 6d 24 2c 22 | = INSTR|(item$,"|
|00001b50| 2e 22 29 0d 09 f6 26 6d | 65 6e 75 70 74 72 25 3d |.")...&m|enuptr%=|
|00001b60| a4 6d 65 6e 75 69 74 65 | 6d 28 6d 65 6e 75 70 74 |.menuite|m(menupt|
|00001b70| 72 25 2c 69 74 65 6d 24 | 29 0d 0a 00 31 e7 20 a9 |r%,item$|)...1. .|
|00001b80| 20 24 28 6d 65 6e 75 70 | 74 72 25 2d 31 32 29 20 | $(menup|tr%-12) |
|00001b90| 3e 20 77 20 8c 20 77 20 | 3d 20 a9 20 24 28 6d 65 |> w . w |= . $(me|
|00001ba0| 6e 75 70 74 72 25 2d 31 | 32 29 0d 0a 0a 0e fd 20 |nuptr%-1|2)..... |
|00001bb0| 69 74 65 6d 24 3d 22 22 | 0d 0a 14 14 63 61 6c 6c |item$=""|....call|
|00001bc0| 25 21 31 36 3d 31 36 2a | 77 2b 31 32 0d 0a 1e 23 |%!16=16*|w+12...#|
|00001bd0| 6d 65 6e 75 70 74 72 25 | 21 2d 32 34 3d 28 6d 65 |menuptr%|!-24=(me|
|00001be0| 6e 75 70 74 72 25 21 2d | 32 34 29 84 26 38 30 0d |nuptr%!-|24).&80.|
|00001bf0| 0a 28 0a 3d 63 61 6c 6c | 25 0d 0a 32 05 3a 0d 0a |.(.=call|%..2.:..|
|00001c00| 3c 1b dd 20 a4 6d 65 6e | 75 69 74 65 6d 28 70 74 |<.. .men|uitem(pt|
|00001c10| 72 25 2c 74 65 78 74 24 | 29 0d 0a 46 14 e7 20 74 |r%,text$|)..F.. t|
|00001c20| 65 78 74 24 3d 22 22 20 | 3d 70 74 72 25 0d 0a 50 |ext$="" |=ptr%..P|
|00001c30| 0a ea 20 61 2c 74 24 0d | 0a 5a 07 61 3d 30 0d 0a |.. a,t$.|.Z.a=0..|
|00001c40| 64 0b 21 70 74 72 25 3d | 30 0d 0a 6e 14 70 74 72 |d.!ptr%=|0..n.ptr|
|00001c50| 25 21 38 3d 26 30 37 30 | 30 30 30 32 31 0d 0a 78 |%!8=&070|00021..x|
|00001c60| 0d 70 74 72 25 21 34 3d | 2d 31 0d 0a 82 15 e7 20 |.ptr%!4=|-1..... |
|00001c70| c0 74 65 78 74 24 2c 31 | 29 3d 22 3e 22 20 8c 0d |.text$,1|)=">" ..|
|00001c80| 0a 8c 13 74 65 78 74 24 | 3d c1 74 65 78 74 24 2c |...text$|=.text$,|
|00001c90| 32 29 0d 0a 96 18 74 24 | 3d a4 70 61 72 28 74 65 |2)....t$|=.par(te|
|00001ca0| 78 74 24 2c 22 2e 22 2c | 61 29 0d 0a a0 1f 70 74 |xt$,".",|a)....pt|
|00001cb0| 72 25 21 34 3d a0 28 a4 | 70 61 72 28 74 65 78 74 |r%!4=.(.|par(text|
|00001cc0| 24 2c 22 2e 22 2c 61 29 | 29 0d 0a aa 0c 74 65 78 |$,".",a)|)....tex|
|00001cd0| 74 24 3d 74 24 0d 0a b4 | 05 cd 0d 0a be 15 e7 20 |t$=t$...|....... |
|00001ce0| c0 74 65 78 74 24 2c 31 | 29 3d 22 7e 22 20 8c 0d |.text$,1|)="~" ..|
|00001cf0| 0a c8 13 74 65 78 74 24 | 3d c1 74 65 78 74 24 2c |...text$|=.text$,|
|00001d00| 32 29 0d 0a d2 18 74 24 | 3d a4 70 61 72 28 74 65 |2)....t$|=.par(te|
|00001d10| 78 74 24 2c 22 2e 22 2c | 61 29 0d 0a dc 50 70 74 |xt$,".",|a)...Ppt|
|00001d20| 72 25 21 34 3d a0 28 22 | 46 4e 63 5f 6d 28 6e 65 |r%!4=.("|FNc_m(ne|
|00001d30| 78 74 25 2c 22 2b a4 70 | 61 72 28 74 65 78 74 24 |xt%,"+.p|ar(text$|
|00001d40| 2c 22 2e 22 2c 61 29 2b | 22 2c 22 2b bd 33 34 2b |,".",a)+|","+.34+|
|00001d50| a4 70 61 72 28 74 65 78 | 74 24 2c 22 2e 22 2c 61 |.par(tex|t$,".",a|
|00001d60| 29 2b bd 33 34 2b 22 29 | 22 29 0d 0a e6 0c 74 65 |)+.34+")|")....te|
|00001d70| 78 74 24 3d 74 24 0d 0a | f0 05 cd 0d 0a fa 32 e7 |xt$=t$..|......2.|
|00001d80| 20 c0 74 65 78 74 24 2c | 31 29 3d 22 3a 22 21 70 | .text$,|1)=":"!p|
|00001d90| 74 72 25 3d 21 70 74 72 | 25 20 84 20 32 3a 74 65 |tr%=!ptr|% . 2:te|
|00001da0| 78 74 24 3d c1 74 65 78 | 74 24 2c 32 29 0d 0b 04 |xt$=.tex|t$,2)...|
|00001db0| 37 e7 20 c0 74 65 78 74 | 24 2c 31 29 3d 22 3c 22 |7. .text|$,1)="<"|
|00001dc0| 70 74 72 25 21 38 3d 70 | 74 72 25 21 38 20 84 20 |ptr%!8=p|tr%!8 . |
|00001dd0| 32 5e 32 32 3a 74 65 78 | 74 24 3d c1 74 65 78 74 |2^22:tex|t$=.text|
|00001de0| 24 2c 32 29 0d 0b 0e 36 | e7 20 c0 74 65 78 74 24 |$,2)...6|. .text$|
|00001df0| 2c 31 29 3d 22 40 22 21 | 70 74 72 25 3d 21 6d 65 |,1)="@"!|ptr%=!me|
|00001e00| 6e 75 70 74 72 25 20 84 | 20 31 3a 74 65 78 74 24 |nuptr% .| 1:text$|
|00001e10| 3d c1 74 65 78 74 24 2c | 32 29 0d 0b 18 14 24 28 |=.text$,|2)....$(|
|00001e20| 70 74 72 25 2b 31 32 29 | 3d 74 65 78 74 24 0d 0b |ptr%+12)|=text$..|
|00001e30| 22 0c 3d 70 74 72 25 2b | 32 34 0d 0b 2c 05 3a 0d |".=ptr%+|24..,.:.|
|00001e40| 0b 36 16 dd 20 a4 70 61 | 72 28 61 24 2c 73 24 2c |.6.. .pa|r(a$,s$,|
|00001e50| f8 20 69 25 29 0d 0b 40 | 09 ea 20 69 31 25 0d 0b |. i%)..@|.. i1%..|
|00001e60| 4a 1e 69 31 25 3d 69 25 | 2b 31 3a 69 25 3d a7 61 |J.i1%=i%|+1:i%=.a|
|00001e70| 24 2b 73 24 2c 73 24 2c | 69 31 25 29 0d 0b 54 14 |$+s$,s$,|i1%)..T.|
|00001e80| 3d c1 61 24 2c 69 31 25 | 2c 69 25 2d 69 31 25 29 |=.a$,i1%|,i%-i1%)|
|00001e90| 0d 0b 5e 05 3a 0d 0b 68 | 19 dd 20 f2 6d 65 6e 75 |..^.:..h|.. .menu|
|00001ea0| 73 65 6c 65 63 74 28 6d | 65 6e 75 73 25 29 0d 0b |select(m|enus%)..|
|00001eb0| 72 12 ea 20 61 2c 61 24 | 2c 6c 65 76 65 6c 31 24 |r.. a,a$|,level1$|
|00001ec0| 0d 0b 7c 3d c8 99 20 22 | 57 69 6d 70 5f 44 65 63 |..|=.. "|Wimp_Dec|
|00001ed0| 6f 64 65 4d 65 6e 75 22 | 2c 2c 28 6d 65 6e 75 62 |odeMenu"|,,(menub|
|00001ee0| 75 66 25 2b 34 29 2c 6d | 65 6e 75 73 25 2c c4 32 |uf%+4),m|enus%,.2|
|00001ef0| 30 30 2c 22 20 22 29 b8 | 2c 2c 2c 61 24 0d 0b 86 |00," ").|,,,a$...|
|00001f00| 0f e7 20 61 24 3d 22 22 | 20 8c 20 e1 0d 0b 90 1a |.. a$=""| . .....|
|00001f10| 6c 65 76 65 6c 31 24 3d | a4 70 61 72 28 61 24 2c |level1$=|.par(a$,|
|00001f20| 22 2e 22 2c 61 29 0d 0b | 9a 20 e7 20 6c 65 76 65 |".",a)..|. . leve|
|00001f30| 6c 31 24 3d 22 51 75 69 | 74 22 20 8c 20 f2 66 69 |l1$="Qui|t" . .fi|
|00001f40| 6e 69 73 68 3a e0 0d 0b | a4 0f f2 67 65 74 70 6f |nish:...|...getpo|
|00001f50| 69 6e 74 65 72 0d 0b ae | 54 e7 20 28 62 25 20 80 |inter...|T. (b% .|
|00001f60| 20 31 29 3d 31 20 80 20 | 6d 65 6e 75 62 75 66 25 | 1)=1 . |menubuf%|
|00001f70| 21 30 3d 31 20 8c 20 f2 | 64 6f 6d 65 6e 75 28 6d |!0=1 . .|domenu(m|
|00001f80| 65 6e 75 62 75 66 25 21 | 30 2c 6d 65 6e 75 62 75 |enubuf%!|0,menubu|
|00001f90| 66 25 2c 6d 65 6e 75 24 | 2c 70 72 6f 67 5f 74 69 |f%,menu$|,prog_ti|
|00001fa0| 74 6c 65 24 2c 30 2c 30 | 29 0d 0b b8 05 e1 0d 0b |tle$,0,0|).......|
|00001fb0| c2 05 3a 0d 0b cc 1e dd | 20 f2 66 72 6f 6e 74 5f |..:.....| .front_|
|00001fc0| 62 79 28 68 61 6e 64 6c | 65 25 2c 78 25 2c 79 25 |by(handl|e%,x%,y%|
|00001fd0| 29 0d 0b d6 11 e7 68 61 | 6e 64 6c 65 25 3d 2d 31 |).....ha|ndle%=-1|
|00001fe0| 8c e1 0d 0b e0 12 f2 67 | 65 74 77 28 68 61 6e 64 |.......g|etw(hand|
|00001ff0| 6c 65 25 29 0d 0b ea 42 | f2 6f 70 65 6e 5f 77 69 |le%)...B|.open_wi|
|00002000| 6e 64 6f 77 28 68 61 6e | 64 6c 65 25 2c 78 25 2c |ndow(han|dle%,x%,|
|00002010| 79 25 2c 78 25 2b 78 31 | 25 2d 78 30 25 2c 79 25 |y%,x%+x1|%-x0%,y%|
|00002020| 2b 79 31 25 2d 79 30 25 | 2c 73 63 78 25 2c 73 63 |+y1%-y0%|,scx%,sc|
|00002030| 79 25 2c 2d 31 29 0d 0b | f4 05 e1 0d 0b fe 05 3a |y%,-1)..|.......:|
|00002040| 0d 0c 08 15 dd 20 f2 66 | 72 6f 6e 74 28 68 61 6e |..... .f|ront(han|
|00002050| 64 6c 65 25 29 0d 0c 12 | 11 e7 68 61 6e 64 6c 65 |dle%)...|..handle|
|00002060| 25 3d 2d 31 8c e1 0d 0c | 1c 12 f2 67 65 74 77 28 |%=-1....|...getw(|
|00002070| 68 61 6e 64 6c 65 25 29 | 0d 0c 26 36 f2 6f 70 65 |handle%)|..&6.ope|
|00002080| 6e 5f 77 69 6e 64 6f 77 | 28 68 61 6e 64 6c 65 25 |n_window|(handle%|
|00002090| 2c 78 30 25 2c 79 30 25 | 2c 78 31 25 2c 79 31 25 |,x0%,y0%|,x1%,y1%|
|000020a0| 2c 73 63 78 25 2c 73 63 | 79 25 2c 2d 31 29 0d 0c |,scx%,sc|y%,-1)..|
|000020b0| 30 05 e1 0d 0c 3a 05 3a | 0d 0c 44 1b dd 20 f2 6f |0....:.:|..D.. .o|
|000020c0| 70 65 6e 61 77 69 6e 64 | 6f 77 28 68 61 6e 64 6c |penawind|ow(handl|
|000020d0| 65 25 29 0d 0c 4e 11 e7 | 68 61 6e 64 6c 65 25 3d |e%)..N..|handle%=|
|000020e0| 2d 31 8c e1 0d 0c 58 12 | f2 67 65 74 77 28 68 61 |-1....X.|.getw(ha|
|000020f0| 6e 64 6c 65 25 29 0d 0c | 62 3c f2 6f 70 65 6e 5f |ndle%)..|b<.open_|
|00002100| 77 69 6e 64 6f 77 28 68 | 61 6e 64 6c 65 25 2c 78 |window(h|andle%,x|
|00002110| 30 25 2c 79 30 25 2c 78 | 31 25 2c 79 31 25 2c 73 |0%,y0%,x|1%,y1%,s|
|00002120| 63 78 25 2c 73 63 79 25 | 2c 62 68 61 6e 64 6c 65 |cx%,scy%|,bhandle|
|00002130| 25 29 0d 0c 6c 05 e1 0d | 0c 76 05 3a 0d 0c 80 3e |%)..l...|.v.:...>|
|00002140| dd 20 f2 6f 70 65 6e 5f | 77 69 6e 64 6f 77 28 68 |. .open_|window(h|
|00002150| 61 6e 64 6c 65 25 2c 78 | 30 25 2c 79 30 25 2c 78 |andle%,x|0%,y0%,x|
|00002160| 31 25 2c 79 31 25 2c 73 | 63 78 25 2c 73 63 79 25 |1%,y1%,s|cx%,scy%|
|00002170| 2c 62 68 61 6e 64 6c 65 | 25 29 0d 0c 8a 11 e7 68 |,bhandle|%).....h|
|00002180| 61 6e 64 6c 65 25 3d 2d | 31 8c e1 0d 0c 94 22 e7 |andle%=-|1.....".|
|00002190| 20 68 61 6e 64 6c 65 25 | 3d 6d 61 69 6e 25 20 8c | handle%|=main% .|
|000021a0| 20 6d 61 69 6e 5f 6f 70 | 65 6e 25 3d b9 0d 0c 9e | main_op|en%=....|
|000021b0| 1f 71 25 21 30 3d 68 61 | 6e 64 6c 65 25 3a 71 25 |.q%!0=ha|ndle%:q%|
|000021c0| 21 32 38 3d 62 68 61 6e | 64 6c 65 25 0d 0c a8 29 |!28=bhan|dle%...)|
|000021d0| 71 25 21 34 3d 78 30 25 | 3a 71 25 21 38 3d 79 30 |q%!4=x0%|:q%!8=y0|
|000021e0| 25 3a 71 25 21 31 32 3d | 78 31 25 3a 71 25 21 31 |%:q%!12=|x1%:q%!1|
|000021f0| 36 3d 79 31 25 0d 0c b2 | 19 71 25 21 32 30 3d 73 |6=y1%...|.q%!20=s|
|00002200| 63 78 25 3a 71 25 21 32 | 34 3d 73 63 79 25 0d 0c |cx%:q%!2|4=scy%..|
|00002210| bc 1c c8 99 20 22 57 69 | 6d 70 5f 4f 70 65 6e 57 |.... "Wi|mp_OpenW|
|00002220| 69 6e 64 6f 77 22 2c 2c | 71 25 0d 0c c6 05 e1 0d |indow",,|q%......|
|00002230| 0c d0 05 3a 0d 0c da 1c | dd 20 f2 63 6c 6f 73 65 |...:....|. .close|
|00002240| 61 77 69 6e 64 6f 77 28 | 68 61 6e 64 6c 65 25 29 |awindow(|handle%)|
|00002250| 0d 0c e4 12 f2 67 65 74 | 77 28 68 61 6e 64 6c 65 |.....get|w(handle|
|00002260| 25 29 0d 0c ee 1a f2 63 | 6c 6f 73 65 5f 77 69 6e |%).....c|lose_win|
|00002270| 64 6f 77 28 68 61 6e 64 | 6c 65 25 29 0d 0c f8 05 |dow(hand|le%)....|
|00002280| e1 0d 0d 02 05 3a 0d 0d | 0c 1c dd 20 f2 63 6c 6f |.....:..|... .clo|
|00002290| 73 65 5f 77 69 6e 64 6f | 77 28 68 61 6e 64 6c 65 |se_windo|w(handle|
|000022a0| 25 29 0d 0d 16 0f 21 71 | 25 3d 68 61 6e 64 6c 65 |%)....!q|%=handle|
|000022b0| 25 0d 0d 20 22 e7 20 68 | 61 6e 64 6c 65 25 3d 6d |%.. ". h|andle%=m|
|000022c0| 61 69 6e 25 20 8c 20 6d | 61 69 6e 5f 6f 70 65 6e |ain% . m|ain_open|
|000022d0| 25 3d a3 0d 0d 2a 1d c8 | 99 20 22 57 69 6d 70 5f |%=...*..|. "Wimp_|
|000022e0| 43 6c 6f 73 65 57 69 6e | 64 6f 77 22 2c 2c 71 25 |CloseWin|dow",,q%|
|000022f0| 0d 0d 34 05 e1 0d 0d 3e | 05 3a 0d 0d 48 14 dd 20 |..4....>|.:..H.. |
|00002300| f2 67 65 74 77 28 68 61 | 6e 64 6c 65 25 29 0d 0d |.getw(ha|ndle%)..|
|00002310| 52 2b 21 71 25 3d 68 61 | 6e 64 6c 65 25 3a c8 99 |R+!q%=ha|ndle%:..|
|00002320| 20 22 57 69 6d 70 5f 47 | 65 74 57 69 6e 64 6f 77 | "Wimp_G|etWindow|
|00002330| 49 6e 66 6f 22 2c 2c 71 | 25 0d 0d 5c 1f 78 30 25 |Info",,q|%..\.x0%|
|00002340| 3d 71 25 21 34 3a 79 30 | 25 3d 71 25 21 38 3a 78 |=q%!4:y0|%=q%!8:x|
|00002350| 31 25 3d 71 25 21 31 32 | 0d 0d 66 23 79 31 25 3d |1%=q%!12|..f#y1%=|
|00002360| 71 25 21 31 36 3a 73 63 | 78 25 3d 71 25 21 32 30 |q%!16:sc|x%=q%!20|
|00002370| 3a 73 63 79 25 3d 71 25 | 21 32 34 0d 0d 70 1d 62 |:scy%=q%|!24..p.b|
|00002380| 78 25 3d 78 30 25 2d 73 | 63 78 25 3a 62 79 25 3d |x%=x0%-s|cx%:by%=|
|00002390| 79 31 25 2d 73 63 79 25 | 0d 0d 7a 1f 62 68 61 6e |y1%-scy%|..z.bhan|
|000023a0| 64 6c 65 25 3d 71 25 21 | 32 38 3a 66 6c 61 67 73 |dle%=q%!|28:flags|
|000023b0| 25 3d 71 25 21 33 32 0d | 0d 84 05 e1 0d 0d 8e 05 |%=q%!32.|........|
|000023c0| 3a 0d 0d 98 11 dd 20 f2 | 67 65 74 70 6f 69 6e 74 |:..... .|getpoint|
|000023d0| 65 72 0d 0d a2 20 c8 99 | 20 22 57 69 6d 70 5f 47 |er... ..| "Wimp_G|
|000023e0| 65 74 50 6f 69 6e 74 65 | 72 49 6e 66 6f 22 2c 2c |etPointe|rInfo",,|
|000023f0| 71 25 0d 0d ac 48 6d 6f | 75 73 65 78 25 3d 21 71 |q%...Hmo|usex%=!q|
|00002400| 25 3a 6d 6f 75 73 65 79 | 25 3d 71 25 21 34 3a 62 |%:mousey|%=q%!4:b|
|00002410| 25 3d 71 25 21 38 3a 68 | 61 6e 64 6c 65 25 3d 71 |%=q%!8:h|andle%=q|
|00002420| 25 21 31 32 3a 69 63 6f | 6e 25 3d 71 25 21 31 36 |%!12:ico|n%=q%!16|
|00002430| 3a 6f 62 25 3d 71 25 21 | 32 30 0d 0d b6 05 e1 0d |:ob%=q%!|20......|
|00002440| 0d c0 05 3a 0d 0d ca 19 | dd 20 f2 65 72 72 6f 72 |...:....|. .error|
|00002450| 62 6f 78 3a ea 20 72 65 | 73 75 6c 74 25 0d 0d d4 |box:. re|sult%...|
|00002460| 27 ef 36 3a c8 99 20 22 | 57 69 6d 70 5f 44 72 61 |'.6:.. "|Wimp_Dra|
|00002470| 67 42 6f 78 22 2c 2c 2d | 31 3a d9 23 30 3a 2a 46 |gBox",,-|1:.#0:*F|
|00002480| 58 32 2c 30 0d 0d de 18 | c8 99 20 22 48 6f 75 72 |X2,0....|.. "Hour|
|00002490| 67 6c 61 73 73 5f 53 6d | 61 73 68 22 0d 0d e8 35 |glass_Sm|ash"...5|
|000024a0| 21 71 25 3d 9f 3a 24 28 | 71 25 2b 34 29 3d 22 49 |!q%=.:$(|q%+4)="I|
|000024b0| 6e 74 65 72 6e 61 6c 20 | 65 72 72 6f 72 20 22 2b |nternal |error "+|
|000024c0| f6 24 2b 22 20 28 22 2b | c3 9e 2b 22 29 22 2b bd |.$+" ("+|..+")"+.|
|000024d0| 30 0d 0d f2 35 c8 99 20 | 22 57 69 6d 70 5f 52 65 |0...5.. |"Wimp_Re|
|000024e0| 70 6f 72 74 45 72 72 6f | 72 22 2c 71 25 2c 33 2c |portErro|r",q%,3,|
|000024f0| 70 72 6f 67 5f 74 69 74 | 6c 65 24 20 b8 20 2c 72 |prog_tit|le$ . ,r|
|00002500| 65 73 75 6c 74 25 0d 0d | fc 19 e7 20 72 65 73 75 |esult%..|... resu|
|00002510| 6c 74 25 3d 32 20 8c 20 | f2 66 69 6e 69 73 68 0d |lt%=2 . |.finish.|
|00002520| 0e 06 05 e1 0d 0e 10 05 | 3a 0d 0e 1a 0d dd 20 f2 |........|:..... .|
|00002530| 66 69 6e 69 73 68 0d 0e | 24 19 c8 99 20 22 57 69 |finish..|$... "Wi|
|00002540| 6d 70 5f 43 6c 6f 73 65 | 44 6f 77 6e 22 3a e0 0d |mp_Close|Down":..|
|00002550| 0e 2e 05 e1 0d 0e 38 05 | 3a 0d 0e 42 23 dd 20 a4 |......8.|:..B#. .|
|00002560| 69 63 6f 6e 62 61 72 28 | 73 70 6e 61 6d 65 24 2c |iconbar(|spname$,|
|00002570| 73 70 72 69 74 65 61 72 | 65 61 25 29 0d 0e 4c 36 |spritear|ea%)..L6|
|00002580| 21 71 25 3d 2d 31 3a 71 | 25 21 34 3d 30 3a 71 25 |!q%=-1:q|%!4=0:q%|
|00002590| 21 38 3d 30 3a 71 25 21 | 31 32 3d 36 33 3a 71 25 |!8=0:q%!|12=63:q%|
|000025a0| 21 31 36 3d 36 38 3a 71 | 25 21 32 30 3d 26 32 31 |!16=68:q|%!20=&21|
|000025b0| 30 32 0d 0e 56 3b de 20 | 71 25 21 32 34 20 28 a9 |02..V;. |q%!24 (.|
|000025c0| 73 70 6e 61 6d 65 24 2b | 31 29 3a 24 28 71 25 21 |spname$+|1):$(q%!|
|000025d0| 32 34 29 3d 73 70 6e 61 | 6d 65 24 3a 71 25 21 32 |24)=spna|me$:q%!2|
|000025e0| 38 3d 73 70 72 69 74 65 | 61 72 65 61 25 0d 0e 60 |8=sprite|area%..`|
|000025f0| 14 71 25 21 33 32 3d a9 | 73 70 6e 61 6d 65 24 2b |.q%!32=.|spname$+|
|00002600| 31 0d 0e 6a 22 c8 99 20 | 22 57 69 6d 70 5f 43 72 |1..j".. |"Wimp_Cr|
|00002610| 65 61 74 65 49 63 6f 6e | 22 2c 2c 71 25 20 b8 20 |eateIcon|",,q% . |
|00002620| 69 63 25 0d 0e 74 08 3d | 69 63 25 0d 0e 7e 05 3a |ic%..t.=|ic%..~.:|
|00002630| 0d 0e 88 0b dd 20 f2 76 | 61 72 73 0d 0e 92 2e 77 |..... .v|ars....w|
|00002640| 62 63 6f 6c 3d 26 31 3a | 74 62 63 6f 6c 3d 26 32 |bcol=&1:|tbcol=&2|
|00002650| 3a 73 63 6f 3d 26 33 3a | 6d 62 63 6f 6c 3d 26 30 |:sco=&3:|mbcol=&0|
|00002660| 3a 77 66 63 6f 6c 3d 26 | 37 0d 0e 9c 2f 74 66 63 |:wfcol=&|7.../tfc|
|00002670| 6f 6c 3d 26 37 3a 73 63 | 69 3d 26 44 3a 74 62 63 |ol=&7:sc|i=&D:tbc|
|00002680| 6f 6c 32 3d 26 43 3a 62 | 6c 61 63 6b 3d 26 37 3a |ol2=&C:b|lack=&7:|
|00002690| 77 68 69 74 65 3d 26 30 | 0d 0e a6 05 e1 0d 0e b0 |white=&0|........|
|000026a0| 05 3a 0d 0e ba 19 dd a4 | 6d 61 78 28 61 2c 62 29 |.:......|max(a,b)|
|000026b0| 3a e7 61 3e 62 3d 61 20 | 8b 3d 62 0d 0e c4 05 3a |:.a>b=a |.=b....:|
|000026c0| 0d 0e ce 19 dd a4 6d 69 | 6e 28 61 2c 62 29 3a e7 |......mi|n(a,b):.|
|000026d0| 61 3c 62 3d 61 20 8b 3d | 62 0d 0e d8 05 3a 0d 0e |a<b=a .=|b....:..|
|000026e0| e2 13 dd 20 f2 64 61 74 | 61 6c 6f 61 64 28 71 25 |... .dat|aload(q%|
|000026f0| 29 0d 0e ec 0b ea 20 6c | 65 61 66 24 0d 0e f6 22 |)..... l|eaf$..."|
|00002700| 72 6f 6f 74 6e 61 6d 65 | 24 3d a4 6d 65 6d 74 6f |rootname|$=.memto|
|00002710| 73 74 72 28 71 25 2b 34 | 34 2c 32 35 30 29 0d 0f |str(q%+4|4,250)..|
|00002720| 00 1c e7 20 71 25 21 34 | 30 20 3d 20 66 69 6c 74 |... q%!4|0 = filt|
|00002730| 65 72 5f 74 79 70 65 25 | 20 8c 0d 0f 0a 3f 71 25 |er_type%| ....?q%|
|00002740| 21 30 3d 32 30 3a 71 25 | 21 31 32 3d 71 25 21 38 |!0=20:q%|!12=q%!8|
|00002750| 3a 71 25 21 31 36 3d 34 | 3a c8 99 20 22 57 69 6d |:q%!16=4|:.. "Wim|
|00002760| 70 5f 53 65 6e 64 4d 65 | 73 73 61 67 65 22 2c 31 |p_SendMe|ssage",1|
|00002770| 37 2c 71 25 2c 71 25 21 | 34 0d 0f 14 1b f2 66 69 |7,q%,q%!|4.....fi|
|00002780| 6c 74 65 72 5f 6c 6f 61 | 64 28 72 6f 6f 74 6e 61 |lter_loa|d(rootna|
|00002790| 6d 65 24 29 0d 0f 1e 0f | 6d 79 72 65 66 25 3d 71 |me$)....|myref%=q|
|000027a0| 25 21 38 0d 0f 28 05 cc | 0d 0f 32 14 73 61 76 65 |%!8..(..|..2.save|
|000027b0| 5f 74 79 70 65 25 3d 71 | 25 21 34 30 0d 0f 3c 3f |_type%=q|%!40..<?|
|000027c0| 71 25 21 30 3d 32 30 3a | 71 25 21 31 32 3d 71 25 |q%!0=20:|q%!12=q%|
|000027d0| 21 38 3a 71 25 21 31 36 | 3d 34 3a c8 99 20 22 57 |!8:q%!16|=4:.. "W|
|000027e0| 69 6d 70 5f 53 65 6e 64 | 4d 65 73 73 61 67 65 22 |imp_Send|Message"|
|000027f0| 2c 31 37 2c 71 25 2c 71 | 25 21 34 0d 0f 46 0f 6d |,17,q%,q|%!4..F.m|
|00002800| 79 72 65 66 25 3d 71 25 | 21 38 0d 0f 50 1a 6c 65 |yref%=q%|!8..P.le|
|00002810| 61 66 24 3d a4 6c 65 61 | 66 28 72 6f 6f 74 6e 61 |af$=.lea|f(rootna|
|00002820| 6d 65 24 29 0d 0f 5a 47 | e7 20 a9 28 6c 65 61 66 |me$)..ZG|. .(leaf|
|00002830| 24 29 20 3c 20 31 30 20 | 8c 20 24 66 69 6c 65 6e |$) < 10 |. $filen|
|00002840| 61 6d 65 25 3d 6c 65 61 | 66 24 2b 22 2f 22 20 8b |ame%=lea|f$+"/" .|
|00002850| 20 24 66 69 6c 65 6e 61 | 6d 65 25 20 3d 20 c0 6c | $filena|me% = .l|
|00002860| 65 61 66 24 2c 39 29 2b | 22 2f 22 0d 0f 64 1e f2 |eaf$,9)+|"/"..d..|
|00002870| 73 65 74 5f 73 61 76 65 | 5f 74 79 70 65 28 73 61 |set_save|_type(sa|
|00002880| 76 65 5f 74 79 70 65 25 | 29 0d 0f 6e 0d f2 63 61 |ve_type%|)..n..ca|
|00002890| 6c 6c 73 61 76 65 0d 0f | 78 05 cd 0d 0f 82 05 e1 |llsave..|x.......|
|000028a0| 0d 0f 8c 05 3a 0d 0f 96 | 16 dd 20 f2 64 61 74 61 |....:...|.. .data|
|000028b0| 6c 6f 61 64 61 63 6b 28 | 71 25 29 0d 0f a0 14 e7 |loadack(|q%).....|
|000028c0| 20 71 25 21 31 32 3d 6d | 79 72 65 66 25 20 8c 0d | q%!12=m|yref% ..|
|000028d0| 0f aa 0d 6d 79 72 65 66 | 25 3d 2d 31 0d 0f b4 05 |...myref|%=-1....|
|000028e0| cd 0d 0f be 05 e1 0d 0f | c8 05 3a 0d 0f d2 12 dd |........|..:.....|
|000028f0| 20 f2 64 72 61 67 62 6f | 78 28 71 25 29 0d 0f dc | .dragbo|x(q%)...|
|00002900| 28 e7 20 64 72 61 67 62 | 6f 78 5f 73 65 6c 65 63 |(. dragb|ox_selec|
|00002910| 74 25 20 8c 20 f2 64 72 | 61 67 5f 73 65 6c 65 63 |t% . .dr|ag_selec|
|00002920| 74 28 71 25 29 0d 0f e6 | 28 e7 20 64 72 61 67 62 |t(q%)...|(. dragb|
|00002930| 6f 78 5f 61 64 6a 75 73 | 74 25 20 8c 20 f2 64 72 |ox_adjus|t% . .dr|
|00002940| 61 67 5f 61 64 6a 75 73 | 74 28 71 25 29 0d 0f f0 |ag_adjus|t(q%)...|
|00002950| 16 e7 20 64 72 61 67 62 | 6f 78 73 61 76 65 25 3d |.. dragb|oxsave%=|
|00002960| b9 20 8c 0d 0f fa 12 64 | 72 61 67 62 6f 78 73 61 |. .....d|ragboxsa|
|00002970| 76 65 25 3d a3 0d 10 04 | 0f f2 67 65 74 70 6f 69 |ve%=....|..getpoi|
|00002980| 6e 74 65 72 0d 10 0e 0b | 71 25 21 30 3d 36 30 0d |nter....|q%!0=60.|
|00002990| 10 18 0b 71 25 21 31 32 | 3d 30 0d 10 22 0b 71 25 |...q%!12|=0..".q%|
|000029a0| 21 31 36 3d 31 0d 10 2c | 11 71 25 21 32 30 3d 68 |!16=1..,|.q%!20=h|
|000029b0| 61 6e 64 6c 65 25 0d 10 | 36 0f 71 25 21 32 34 3d |andle%..|6.q%!24=|
|000029c0| 69 63 6f 6e 25 0d 10 40 | 0c 71 25 21 32 38 3d 78 |icon%..@|.q%!28=x|
|000029d0| 25 0d 10 4a 0c 71 25 21 | 33 32 3d 79 25 0d 10 54 |%..J.q%!|32=y%..T|
|000029e0| 0e 71 25 21 33 36 3d 32 | 30 30 30 0d 10 5e 0e 71 |.q%!36=2|000..^.q|
|000029f0| 25 21 34 30 3d 26 46 46 | 46 0d 10 68 23 24 28 71 |%!40=&FF|F..h#$(q|
|00002a00| 25 2b 34 34 29 3d a4 6c | 65 61 66 28 24 66 69 6c |%+44)=.l|eaf($fil|
|00002a10| 65 6e 61 6d 65 25 29 2b | bd 28 30 29 0d 10 72 2d |ename%)+|.(0)..r-|
|00002a20| c8 99 20 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 |.. "Wimp|_SendMes|
|00002a30| 73 61 67 65 22 2c 31 37 | 2c 71 25 2c 68 61 6e 64 |sage",17|,q%,hand|
|00002a40| 6c 65 25 2c 69 63 6f 6e | 25 0d 10 7c 0f 6d 79 72 |le%,icon|%..|.myr|
|00002a50| 65 66 25 3d 71 25 21 38 | 0d 10 86 05 cd 0d 10 90 |ef%=q%!8|........|
|00002a60| 05 e1 0d 10 9a 05 3a 0d | 10 a4 16 dd 20 f2 64 61 |......:.|.... .da|
|00002a70| 74 61 73 61 76 65 61 63 | 6b 28 71 25 29 0d 10 ae |tasaveac|k(q%)...|
|00002a80| 12 e7 20 71 25 21 31 32 | 3d 6d 79 72 65 66 25 0d |.. q%!12|=myref%.|
|00002a90| 10 b8 22 70 61 74 68 6e | 61 6d 65 24 3d a4 6d 65 |.."pathn|ame$=.me|
|00002aa0| 6d 74 6f 73 74 72 28 71 | 25 2b 34 34 2c 31 30 30 |mtostr(q|%+44,100|
|00002ab0| 29 0d 10 c2 14 e7 20 66 | 69 6c 74 65 72 5f 73 61 |)..... f|ilter_sa|
|00002ac0| 76 65 25 20 8c 0d 10 cc | 1d 20 20 f2 66 69 6c 74 |ve% ....|. .filt|
|00002ad0| 65 72 5f 73 61 76 65 28 | 70 61 74 68 6e 61 6d 65 |er_save(|pathname|
|00002ae0| 24 29 0d 10 d6 05 cc 0d | 10 e0 27 20 20 f2 66 69 |$)......|..' .fi|
|00002af0| 6c 74 65 72 5f 66 69 6c | 65 28 72 6f 6f 74 6e 61 |lter_fil|e(rootna|
|00002b00| 6d 65 24 2c 70 61 74 68 | 6e 61 6d 65 24 29 0d 10 |me$,path|name$)..|
|00002b10| ea 05 cd 0d 10 f4 37 71 | 25 21 31 32 3d 71 25 21 |......7q|%!12=q%!|
|00002b20| 38 3a 71 25 21 31 36 3d | 33 3a c8 99 20 22 57 69 |8:q%!16=|3:.. "Wi|
|00002b30| 6d 70 5f 53 65 6e 64 4d | 65 73 73 61 67 65 22 2c |mp_SendM|essage",|
|00002b40| 31 37 2c 71 25 2c 71 25 | 21 34 0d 10 fe 0f 6d 79 |17,q%,q%|!4....my|
|00002b50| 72 65 66 25 3d 71 25 21 | 38 0d 11 08 18 f2 63 6c |ref%=q%!|8.....cl|
|00002b60| 6f 73 65 61 77 69 6e 64 | 6f 77 28 73 61 76 65 25 |oseawind|ow(save%|
|00002b70| 29 0d 11 12 05 cd 0d 11 | 1c 05 e1 0d 11 26 05 3a |).......|.....&.:|
|00002b80| 0d 11 30 17 dd 20 a4 6d | 65 6d 74 6f 73 74 72 28 |..0.. .m|emtostr(|
|00002b90| 70 74 72 2c 6d 6c 29 0d | 11 3a 17 ea 20 66 24 2c |ptr,ml).|.:.. f$,|
|00002ba0| 6d 61 78 3a 6d 61 78 3d | 70 74 72 2b 6d 6c 0d 11 |max:max=|ptr+ml..|
|00002bb0| 44 26 c8 95 20 3f 70 74 | 72 20 80 20 70 74 72 3c |D&.. ?pt|r . ptr<|
|00002bc0| 6d 61 78 20 66 24 2b 3d | bd 3f 70 74 72 3a 70 74 |max f$+=|.?ptr:pt|
|00002bd0| 72 2b 3d 31 0d 11 4e 05 | ce 0d 11 58 07 3d 66 24 |r+=1..N.|...X.=f$|
|00002be0| 0d 11 62 05 3a 0d 11 6c | 12 dd 20 a4 6c 65 61 66 |..b.:..l|.. .leaf|
|00002bf0| 28 70 61 74 68 24 29 0d | 11 76 2e c8 95 20 a7 70 |(path$).|.v... .p|
|00002c00| 61 74 68 24 2c 22 2e 22 | 29 3a 70 61 74 68 24 3d |ath$,"."|):path$=|
|00002c10| c1 70 61 74 68 24 2c a7 | 70 61 74 68 24 2c 22 2e |.path$,.|path$,".|
|00002c20| 22 29 2b 31 29 0d 11 80 | 05 ce 0d 11 8a 0a 3d 70 |")+1)...|......=p|
|00002c30| 61 74 68 24 0d 11 94 05 | 3a 0d 11 9e 0f dd 20 f2 |ath$....|:..... .|
|00002c40| 63 61 6c 6c 73 61 76 65 | 0d 11 a8 0f f2 67 65 74 |callsave|.....get|
|00002c50| 70 6f 69 6e 74 65 72 0d | 11 b2 2b f2 66 72 6f 6e |pointer.|..+.fron|
|00002c60| 74 5f 62 79 28 73 61 76 | 65 25 2c 6d 6f 75 73 65 |t_by(sav|e%,mouse|
|00002c70| 78 25 2d 31 36 34 2c 6d | 6f 75 73 65 79 25 2b 36 |x%-164,m|ousey%+6|
|00002c80| 34 29 0d 11 bc 3a c8 99 | 20 22 57 69 6d 70 5f 53 |4)...:..| "Wimp_S|
|00002c90| 65 74 43 61 72 65 74 50 | 6f 73 69 74 69 6f 6e 22 |etCaretP|osition"|
|00002ca0| 2c 73 61 76 65 25 2c 30 | 2c 30 2c 30 2c 2d 31 2c |,save%,0|,0,0,-1,|
|00002cb0| a9 20 24 66 69 6c 65 6e | 61 6d 65 25 0d 11 c6 05 |. $filen|ame%....|
|00002cc0| e1 0d 11 d0 05 3a 0d 11 | da 12 dd 20 f2 77 61 72 |.....:..|... .war|
|00002cd0| 6e 69 6e 67 28 61 24 29 | 0d 11 e4 17 21 71 25 3d |ning(a$)|....!q%=|
|00002ce0| 9f 3a 24 28 71 25 2b 34 | 29 3d 61 24 2b bd 30 0d |.:$(q%+4|)=a$+.0.|
|00002cf0| 11 ee 2a c8 99 20 22 57 | 69 6d 70 5f 52 65 70 6f |..*.. "W|imp_Repo|
|00002d00| 72 74 45 72 72 6f 72 22 | 2c 71 25 2c 31 2c 70 72 |rtError"|,q%,1,pr|
|00002d10| 6f 67 5f 74 69 74 6c 65 | 24 0d 11 f8 05 e1 0d 12 |og_title|$.......|
|00002d20| 02 05 3a 0d 12 0c 1f dd | 20 f2 66 69 6c 74 65 72 |..:.....| .filter|
|00002d30| 5f 66 69 6c 65 28 6c 6f | 61 64 24 2c 73 61 76 65 |_file(lo|ad$,save|
|00002d40| 24 29 0d 12 16 22 ea 20 | 63 75 72 25 2c 6e 65 78 |$)...". |cur%,nex|
|00002d50| 74 25 2c 66 72 65 65 25 | 2c 42 55 46 46 45 52 53 |t%,free%|,BUFFERS|
|00002d60| 49 5a 45 25 0d 12 20 05 | 3a 0d 12 2a 2f c8 99 20 |IZE%.. .|:..*/.. |
|00002d70| 22 57 69 6d 70 5f 53 6c | 6f 74 53 69 7a 65 22 2c |"Wimp_Sl|otSize",|
|00002d80| 2d 31 2c 2d 31 20 b8 20 | 63 75 72 25 2c 6e 65 78 |-1,-1 . |cur%,nex|
|00002d90| 74 25 2c 66 72 65 65 25 | 0d 12 34 59 e7 20 6e 65 |t%,free%|..4Y. ne|
|00002da0| 78 74 25 20 2b 20 66 72 | 65 65 25 20 3c 20 38 2a |xt% + fr|ee% < 8*|
|00002db0| 31 30 32 34 20 8c 20 f2 | 77 61 72 6e 69 6e 67 28 |1024 . .|warning(|
|00002dc0| 22 4e 6f 74 20 65 6e 6f | 75 67 68 20 6d 65 6d 6f |"Not eno|ugh memo|
|00002dd0| 72 79 20 74 6f 20 70 72 | 6f 63 65 73 73 20 66 69 |ry to pr|ocess fi|
|00002de0| 6c 65 20 2d 20 6e 65 65 | 64 20 33 32 4b 22 29 3a |le - nee|d 32K"):|
|00002df0| e1 0d 12 3e 33 c8 99 20 | 22 57 69 6d 70 5f 53 6c |...>3.. |"Wimp_Sl|
|00002e00| 6f 74 53 69 7a 65 22 2c | 28 73 74 61 72 74 73 6c |otSize",|(startsl|
|00002e10| 6f 74 25 2b 66 72 65 65 | 25 29 2c 2d 31 20 b8 20 |ot%+free|%),-1 . |
|00002e20| 6e 65 77 25 0d 12 48 15 | 63 75 72 72 65 6e 74 73 |new%..H.|currents|
|00002e30| 6c 6f 74 25 3d 6e 65 77 | 25 0d 12 52 1c 42 55 46 |lot%=new|%..R.BUF|
|00002e40| 46 45 52 53 49 5a 45 25 | 20 3d 20 66 72 65 65 25 |FERSIZE%| = free%|
|00002e50| 2d 31 30 32 34 0d 12 5c | 11 62 75 66 66 65 72 25 |-1024..\|.buffer%|
|00002e60| 3d 93 2b 32 35 36 0d 12 | 66 11 69 25 20 3d 20 8e |=.+256..|f.i% = .|
|00002e70| 28 6c 6f 61 64 24 29 0d | 12 70 05 3a 0d 12 7a 39 |(load$).|.p.:..z9|
|00002e80| e7 20 69 25 3d 30 20 8c | 20 f2 77 61 72 6e 69 6e |. i%=0 .| .warnin|
|00002e90| 67 28 6c 6f 61 64 24 2b | 22 20 63 6f 75 6c 64 20 |g(load$+|" could |
|00002ea0| 6e 6f 74 20 62 65 20 66 | 6f 75 6e 64 2e 22 29 3a |not be f|ound."):|
|00002eb0| d9 23 30 3a e1 0d 12 84 | 05 3a 0d 12 8e 15 c8 99 |.#0:....|.:......|
|00002ec0| 20 22 48 6f 75 72 67 6c | 61 73 73 5f 4f 6e 22 0d | "Hourgl|ass_On".|
|00002ed0| 12 98 05 3a 0d 12 a2 11 | 6f 25 20 3d 20 ae 28 73 |...:....|o% = .(s|
|00002ee0| 61 76 65 24 29 0d 12 ac | 0d 6f 70 74 72 25 20 3d |ave$)...|.optr% =|
|00002ef0| 20 30 0d 12 b6 05 3a 0d | 12 c0 29 21 69 6e 70 75 | 0....:.|..)!inpu|
|00002f00| 74 5f 62 75 66 73 69 7a | 65 20 3d 20 28 42 55 46 |t_bufsiz|e = (BUF|
|00002f10| 46 45 52 53 49 5a 45 25 | 2d 31 30 32 34 29 2f 32 |FERSIZE%|-1024)/2|
|00002f20| 0d 12 ca 05 3a 0d 12 d4 | 18 21 6f 5f 62 75 66 5f |....:...|.!o_buf_|
|00002f30| 70 74 72 20 3d 20 62 75 | 66 66 65 72 25 0d 12 de |ptr = bu|ffer%...|
|00002f40| 35 21 69 5f 62 75 66 5f | 70 74 72 20 3d 20 28 21 |5!i_buf_|ptr = (!|
|00002f50| 6f 5f 62 75 66 5f 70 74 | 72 29 20 2b 20 33 32 20 |o_buf_pt|r) + 32 |
|00002f60| 2b 20 28 21 69 6e 70 75 | 74 5f 62 75 66 73 69 7a |+ (!inpu|t_bufsiz|
|00002f70| 65 29 0d 12 e8 05 3a 0d | 12 f2 13 21 6f 5f 68 61 |e)....:.|...!o_ha|
|00002f80| 6e 64 6c 65 20 20 3d 20 | 6f 25 0d 12 fc 13 21 69 |ndle = |o%....!i|
|00002f90| 5f 68 61 6e 64 6c 65 20 | 20 3d 20 69 25 0d 13 06 |_handle | = i%...|
|00002fa0| 05 3a 0d 13 10 12 21 6f | 5f 73 74 61 72 74 20 20 |.:....!o|_start |
|00002fb0| 20 3d 20 30 0d 13 1a 12 | 21 69 5f 73 74 61 72 74 | = 0....|!i_start|
|00002fc0| 20 20 20 3d 20 30 0d 13 | 24 05 3a 0d 13 2e 11 d6 | = 0..|$.:.....|
|00002fd0| 20 63 72 65 61 74 65 5f | 66 69 6c 65 0d 13 38 05 | create_|file..8.|
|00002fe0| 3a 0d 13 42 30 ff 20 22 | 53 65 74 54 79 70 65 20 |:..B0. "|SetType |
|00002ff0| 22 2b 73 61 76 65 24 2b | 22 20 22 2b c2 22 30 30 |"+save$+|" "+."00|
|00003000| 22 2b c3 7e 73 61 76 65 | 5f 74 79 70 65 25 2c 33 |"+.~save|_type%,3|
|00003010| 29 0d 13 4c 04 0d 13 56 | 05 3a 0d 13 60 0d d9 23 |)..L...V|.:..`..#|
|00003020| 6f 25 3a d9 23 69 25 0d | 13 6a 05 3a 0d 13 74 16 |o%:.#i%.|.j.:..t.|
|00003030| c8 99 20 22 48 6f 75 72 | 67 6c 61 73 73 5f 4f 66 |.. "Hour|glass_Of|
|00003040| 66 22 0d 13 7e 05 3a 0d | 13 88 24 c8 99 20 22 57 |f"..~.:.|..$.. "W|
|00003050| 69 6d 70 5f 53 6c 6f 74 | 53 69 7a 65 22 2c 73 74 |imp_Slot|Size",st|
|00003060| 61 72 74 73 6c 6f 74 25 | 2c 2d 31 0d 13 92 1b 63 |artslot%|,-1....c|
|00003070| 75 72 72 65 6e 74 73 6c | 6f 74 25 3d 73 74 61 72 |urrentsl|ot%=star|
|00003080| 74 73 6c 6f 74 25 0d 13 | 9c 05 e1 0d 13 a6 05 3a |tslot%..|.......:|
|00003090| 0d 13 b0 0a dd 20 f2 65 | 6e 64 0d 13 ba 07 d9 23 |..... .e|nd.....#|
|000030a0| 30 0d 13 c4 05 e0 0d 13 | ce 05 3a 0d 13 d8 0f dd |0.......|..:.....|
|000030b0| 20 f2 61 73 73 65 6d 62 | 6c 65 0d 13 e2 10 de 20 | .assemb|le..... |
|000030c0| 63 6f 64 65 25 20 31 30 | 32 34 0d 13 ec 07 ef 32 |code% 10|24.....2|
|000030d0| 31 0d 13 f6 16 e3 20 70 | 61 73 73 20 3d 20 30 20 |1..... p|ass = 0 |
|000030e0| b8 20 32 20 88 20 32 0d | 14 00 05 3a 0d 14 0a 10 |. 2 . 2.|...:....|
|000030f0| 6f 70 20 20 20 20 20 20 | 20 3d 20 36 0d 14 14 10 |op | = 6....|
|00003100| 69 70 20 20 20 20 20 20 | 20 3d 20 37 0d 14 1e 10 |ip | = 7....|
|00003110| 6d 61 78 20 20 20 20 20 | 20 3d 20 38 0d 14 28 10 |max | = 8..(.|
|00003120| 65 6e 64 20 20 20 20 20 | 20 3d 20 39 0d 14 32 11 |end | = 9..2.|
|00003130| 64 61 74 61 5f 70 74 72 | 20 3d 20 31 30 0d 14 3c |data_ptr| = 10..<|
|00003140| 11 6c 6f 73 65 5f 70 74 | 72 20 3d 20 31 31 0d 14 |.lose_pt|r = 11..|
|00003150| 46 1a 62 79 74 65 73 5f | 74 6f 5f 74 72 61 6e 73 |F.bytes_|to_trans|
|00003160| 66 65 72 20 3d 20 31 32 | 0d 14 50 11 73 70 20 20 |fer = 12|..P.sp |
|00003170| 20 20 20 20 20 3d 20 31 | 33 0d 14 5a 11 6c 69 6e | = 1|3..Z.lin|
|00003180| 6b 20 20 20 20 20 3d 20 | 31 34 0d 14 64 11 70 63 |k = |14..d.pc|
|00003190| 20 20 20 20 20 20 20 3d | 20 31 35 0d 14 6e 05 3a | =| 15..n.:|
|000031a0| 0d 14 78 0c 50 25 3d 63 | 6f 64 65 25 0d 14 82 05 |..x.P%=c|ode%....|
|000031b0| 5b 0d 14 8c 0c 4f 50 54 | 20 70 61 73 73 0d 14 96 |[....OPT| pass...|
|000031c0| 05 3b 0d 14 a0 10 2e 63 | 72 65 61 74 65 5f 66 69 |.;.....c|reate_fi|
|000031d0| 6c 65 0d 14 aa 17 73 74 | 6d 66 64 20 72 31 33 21 |le....st|mfd r13!|
|000031e0| 2c 7b 72 30 2d 72 31 32 | 7d 0d 14 b4 0e 6d 6f 76 |,{r0-r12|}....mov|
|000031f0| 20 65 6e 64 2c 23 30 0d | 14 be 1f a4 61 64 72 28 | end,#0.|....adr(|
|00003200| 64 61 74 61 5f 70 74 72 | 2c 66 69 6c 74 65 72 5f |data_ptr|,filter_|
|00003210| 73 74 6f 72 65 29 0d 14 | c8 1d a4 61 64 72 28 6c |store)..|...adr(l|
|00003220| 6f 73 65 5f 70 74 72 2c | 6c 6f 73 65 5f 62 6c 6f |ose_ptr,|lose_blo|
|00003230| 63 6b 29 0d 14 d2 05 3b | 0d 14 dc 16 62 20 6c 6f |ck)....;|....b lo|
|00003240| 6f 70 5f 65 6e 74 72 79 | 5f 70 6f 69 6e 74 0d 14 |op_entry|_point..|
|00003250| e6 05 3b 0d 14 f0 05 3b | 0d 14 fa 1b 3b 20 74 68 |..;....;|....; th|
|00003260| 65 20 6d 61 69 6e 20 63 | 6f 70 79 69 6e 67 20 6c |e main c|opying l|
|00003270| 6f 6f 70 0d 15 04 05 3b | 0d 15 0e 12 2e 69 6e 69 |oop....;|.....ini|
|00003280| 74 5f 6d 61 69 6e 6c 6f | 6f 70 0d 15 18 15 61 64 |t_mainlo|op....ad|
|00003290| 72 20 20 6f 70 2c 6f 5f | 62 75 66 5f 70 74 72 0d |r op,o_|buf_ptr.|
|000032a0| 15 22 13 6c 64 72 20 20 | 6f 70 2c 5b 6f 70 2c 23 |.".ldr |op,[op,#|
|000032b0| 30 5d 0d 15 2c 31 73 75 | 62 20 20 6f 70 2c 6f 70 |0]..,1su|b op,op|
|000032c0| 2c 23 31 20 20 20 20 20 | 20 20 20 3b 73 6f 72 74 |,#1 | ;sort|
|000032d0| 20 6f 75 74 20 74 68 65 | 20 77 72 69 74 65 20 62 | out the| write b|
|000032e0| 61 63 6b 0d 15 36 15 61 | 64 72 20 20 69 70 2c 69 |ack..6.a|dr ip,i|
|000032f0| 5f 62 75 66 5f 70 74 72 | 0d 15 40 13 6c 64 72 20 |_buf_ptr|..@.ldr |
|00003300| 20 69 70 2c 5b 69 70 2c | 23 30 5d 0d 15 4a 31 73 | ip,[ip,|#0]..J1s|
|00003310| 75 62 20 20 69 70 2c 69 | 70 2c 23 31 20 20 20 20 |ub ip,i|p,#1 |
|00003320| 20 20 20 20 3b 73 6f 72 | 74 20 6f 75 74 20 74 68 | ;sor|t out th|
|00003330| 65 20 77 72 69 74 65 20 | 62 61 63 6b 0d 15 54 0d |e write |back..T.|
|00003340| 2e 6d 61 69 6e 6c 6f 6f | 70 0d 15 5e 36 6c 64 72 |.mainloo|p..^6ldr|
|00003350| 62 20 72 30 2c 5b 69 70 | 2c 23 31 5d 21 20 20 20 |b r0,[ip|,#1]! |
|00003360| 20 20 20 20 20 20 20 20 | 20 3b 20 6c 6f 61 64 20 | | ; load |
|00003370| 74 68 65 20 74 61 72 67 | 65 74 20 62 79 74 65 0d |the targ|et byte.|
|00003380| 15 68 21 6c 64 72 62 20 | 72 31 2c 5b 6c 6f 73 65 |.h!ldrb |r1,[lose|
|00003390| 5f 70 74 72 2c 72 30 5d | 20 20 20 20 20 20 20 3b |_ptr,r0]| ;|
|000033a0| 0d 15 72 41 63 6d 70 20 | 20 72 31 2c 23 30 20 20 |..rAcmp | r1,#0 |
|000033b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000033c0| 3b 20 63 68 65 63 6b 20 | 74 6f 20 73 65 65 20 69 |; check |to see i|
|000033d0| 66 20 77 61 6e 74 20 74 | 6f 20 6c 6f 73 65 20 69 |f want t|o lose i|
|000033e0| 74 0d 15 7c 36 6c 64 72 | 65 71 62 20 72 30 2c 5b |t..|6ldr|eqb r0,[|
|000033f0| 64 61 74 61 5f 70 74 72 | 2c 72 30 5d 20 20 20 20 |data_ptr|,r0] |
|00003400| 20 3b 20 66 69 6e 64 20 | 69 74 73 20 72 65 70 6c | ; find |its repl|
|00003410| 61 63 65 6d 65 6e 74 0d | 15 86 30 73 74 72 65 71 |acement.|..0streq|
|00003420| 62 20 72 30 2c 5b 6f 70 | 2c 23 31 5d 21 20 20 20 |b r0,[op|,#1]! |
|00003430| 20 20 20 20 20 20 20 3b | 20 61 6e 64 20 64 6f 20 | ;| and do |
|00003440| 74 68 65 20 6a 6f 62 0d | 15 90 4c 73 75 62 6e 65 |the job.|..Lsubne|
|00003450| 20 20 62 79 74 65 73 5f | 74 6f 5f 74 72 61 6e 73 | bytes_|to_trans|
|00003460| 66 65 72 2c 62 79 74 65 | 73 5f 74 6f 5f 74 72 61 |fer,byte|s_to_tra|
|00003470| 6e 73 66 65 72 2c 23 31 | 20 3b 20 6f 6e 65 20 6c |nsfer,#1| ; one l|
|00003480| 65 73 73 20 62 79 74 65 | 20 74 72 61 6e 73 66 65 |ess byte| transfe|
|00003490| 72 65 64 0d 15 9a 0f 63 | 6d 70 20 20 69 70 2c 6d |red....c|mp ip,m|
|000034a0| 61 78 0d 15 a4 11 62 6e | 65 20 20 6d 61 69 6e 6c |ax....bn|e mainl|
|000034b0| 6f 6f 70 0d 15 ae 05 3b | 0d 15 b8 22 3b 20 77 72 |oop....;|..."; wr|
|000034c0| 69 74 65 20 74 68 65 20 | 6f 75 74 70 75 74 20 62 |ite the |output b|
|000034d0| 75 66 66 65 72 20 62 61 | 63 6b 0d 15 c2 05 3b 0d |uffer ba|ck....;.|
|000034e0| 15 cc 0e 6d 6f 76 20 20 | 72 30 2c 23 31 0d 15 d6 |...mov |r0,#1...|
|000034f0| 14 61 64 72 20 20 72 31 | 2c 6f 5f 68 61 6e 64 6c |.adr r1|,o_handl|
|00003500| 65 0d 15 e0 13 6c 64 72 | 20 20 72 31 2c 5b 72 31 |e....ldr| r1,[r1|
|00003510| 2c 23 30 5d 0d 15 ea 15 | 61 64 72 20 20 72 32 2c |,#0]....|adr r2,|
|00003520| 6f 5f 62 75 66 5f 70 74 | 72 0d 15 f4 13 6c 64 72 |o_buf_pt|r....ldr|
|00003530| 20 20 72 32 2c 5b 72 32 | 2c 23 30 5d 0d 15 fe 1d | r2,[r2|,#0]....|
|00003540| 6d 6f 76 20 20 72 33 2c | 62 79 74 65 73 5f 74 6f |mov r3,|bytes_to|
|00003550| 5f 74 72 61 6e 73 66 65 | 72 0d 16 08 13 61 64 72 |_transfe|r....adr|
|00003560| 20 20 72 34 2c 6f 5f 73 | 74 61 72 74 0d 16 12 13 | r4,o_s|tart....|
|00003570| 6c 64 72 20 20 72 34 2c | 5b 72 34 2c 23 30 5d 0d |ldr r4,|[r4,#0].|
|00003580| 16 1c 12 73 77 69 20 20 | 22 4f 53 5f 47 42 50 42 |...swi |"OS_GBPB|
|00003590| 22 0d 16 26 13 61 64 72 | 20 20 72 30 2c 6f 5f 73 |"..&.adr| r0,o_s|
|000035a0| 74 61 72 74 0d 16 30 13 | 73 74 72 20 20 72 34 2c |tart..0.|str r4,|
|000035b0| 5b 72 30 2c 23 30 5d 0d | 16 3a 05 3b 0d 16 44 0f |[r0,#0].|.:.;..D.|
|000035c0| 63 6d 70 20 20 65 6e 64 | 2c 23 31 0d 16 4e 12 62 |cmp end|,#1..N.b|
|000035d0| 65 71 20 20 66 69 6e 69 | 73 68 5f 75 70 0d 16 58 |eq fini|sh_up..X|
|000035e0| 05 3b 0d 16 62 19 3b 20 | 6c 6f 61 64 20 74 68 65 |.;..b.; |load the|
|000035f0| 20 6e 65 77 20 62 75 66 | 66 65 72 0d 16 6c 05 3b | new buf|fer..l.;|
|00003600| 0d 16 76 15 2e 6c 6f 6f | 70 5f 65 6e 74 72 79 5f |..v..loo|p_entry_|
|00003610| 70 6f 69 6e 74 0d 16 80 | 05 3b 0d 16 8a 0e 6d 6f |point...|.;....mo|
|00003620| 76 20 20 72 30 2c 23 33 | 0d 16 94 14 61 64 72 20 |v r0,#3|....adr |
|00003630| 20 72 31 2c 69 5f 68 61 | 6e 64 6c 65 0d 16 9e 13 | r1,i_ha|ndle....|
|00003640| 6c 64 72 20 20 72 31 2c | 5b 72 31 2c 23 30 5d 0d |ldr r1,|[r1,#0].|
|00003650| 16 a8 15 61 64 72 20 20 | 72 32 2c 69 5f 62 75 66 |...adr |r2,i_buf|
|00003660| 5f 70 74 72 0d 16 b2 13 | 6c 64 72 20 20 72 32 2c |_ptr....|ldr r2,|
|00003670| 5b 72 32 2c 23 30 5d 0d | 16 bc 19 61 64 72 20 20 |[r2,#0].|...adr |
|00003680| 72 33 2c 69 6e 70 75 74 | 5f 62 75 66 73 69 7a 65 |r3,input|_bufsize|
|00003690| 0d 16 c6 13 6c 64 72 20 | 20 72 33 2c 5b 72 33 2c |....ldr | r3,[r3,|
|000036a0| 23 30 5d 0d 16 d0 13 61 | 64 72 20 20 72 34 2c 69 |#0]....a|dr r4,i|
|000036b0| 5f 73 74 61 72 74 0d 16 | da 13 6c 64 72 20 20 72 |_start..|..ldr r|
|000036c0| 34 2c 5b 72 34 2c 23 30 | 5d 0d 16 e4 12 73 77 69 |4,[r4,#0|]....swi|
|000036d0| 20 20 22 4f 53 5f 47 42 | 50 42 22 0d 16 ee 13 61 | "OS_GB|PB"....a|
|000036e0| 64 72 20 20 72 30 2c 69 | 5f 73 74 61 72 74 0d 16 |dr r0,i|_start..|
|000036f0| f8 13 73 74 72 20 20 72 | 34 2c 5b 72 30 2c 23 30 |..str r|4,[r0,#0|
|00003700| 5d 0d 17 02 05 3b 0d 17 | 0c 26 3b 20 63 61 6c 63 |]....;..|.&; calc|
|00003710| 75 6c 61 74 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |ulate nu|mber of |
|00003720| 62 79 74 65 73 20 6c 6f | 61 64 65 64 0d 17 16 05 |bytes lo|aded....|
|00003730| 3b 0d 17 20 19 61 64 72 | 20 20 72 30 2c 69 6e 70 |;.. .adr| r0,inp|
|00003740| 75 74 5f 62 75 66 73 69 | 7a 65 0d 17 2a 13 6c 64 |ut_bufsi|ze..*.ld|
|00003750| 72 20 20 72 30 2c 5b 72 | 30 2c 23 30 5d 0d 17 34 |r r0,[r|0,#0]..4|
|00003760| 11 73 75 62 20 20 72 32 | 2c 72 30 2c 72 33 0d 17 |.sub r2|,r0,r3..|
|00003770| 3e 1d 6d 6f 76 20 20 62 | 79 74 65 73 5f 74 6f 5f |>.mov b|ytes_to_|
|00003780| 74 72 61 6e 73 66 65 72 | 2c 72 32 0d 17 48 0e 63 |transfer|,r2..H.c|
|00003790| 6d 70 20 20 72 30 2c 72 | 32 0d 17 52 10 6d 6f 76 |mp r0,r|2..R.mov|
|000037a0| 6e 65 20 65 6e 64 2c 23 | 31 0d 17 5c 05 3b 0d 17 |ne end,#|1..\.;..|
|000037b0| 66 1e 3b 20 73 65 74 20 | 6d 61 78 20 74 6f 20 63 |f.; set |max to c|
|000037c0| 6f 72 72 65 63 74 20 76 | 61 6c 75 65 0d 17 70 05 |orrect v|alue..p.|
|000037d0| 3b 0d 17 7a 16 61 64 72 | 20 20 6d 61 78 2c 69 5f |;..z.adr| max,i_|
|000037e0| 62 75 66 5f 70 74 72 0d | 17 84 15 6c 64 72 20 20 |buf_ptr.|...ldr |
|000037f0| 6d 61 78 2c 5b 6d 61 78 | 2c 23 30 5d 0d 17 8e 13 |max,[max|,#0]....|
|00003800| 61 64 64 20 20 6d 61 78 | 2c 6d 61 78 2c 72 32 0d |add max|,max,r2.|
|00003810| 17 98 05 3b 0d 17 a2 16 | 62 20 20 20 20 69 6e 69 |...;....|b ini|
|00003820| 74 5f 6d 61 69 6e 6c 6f | 6f 70 0d 17 ac 05 3b 0d |t_mainlo|op....;.|
|00003830| 17 b6 11 3b 20 65 6e 64 | 20 6f 66 20 70 72 6f 67 |...; end| of prog|
|00003840| 0d 17 c0 05 3b 0d 17 ca | 0e 2e 66 69 6e 69 73 68 |....;...|..finish|
|00003850| 5f 75 70 0d 17 d4 17 6c | 64 6d 66 64 20 72 31 33 |_up....l|dmfd r13|
|00003860| 21 2c 7b 72 30 2d 72 31 | 32 7d 0d 17 de 0f 6d 6f |!,{r0-r1|2}....mo|
|00003870| 76 20 72 31 35 2c 72 31 | 34 0d 17 e8 05 3b 0d 17 |v r15,r1|4....;..|
|00003880| f2 09 41 4c 49 47 4e 0d | 17 fc 05 3b 0d 18 06 1d |..ALIGN.|...;....|
|00003890| 2e 6f 5f 62 75 66 5f 70 | 74 72 20 20 20 20 20 20 |.o_buf_p|tr |
|000038a0| 20 20 20 65 71 75 64 20 | 30 0d 18 10 1d 2e 69 5f | equd |0.....i_|
|000038b0| 62 75 66 5f 70 74 72 20 | 20 20 20 20 20 20 20 20 |buf_ptr | |
|000038c0| 65 71 75 64 20 30 0d 18 | 1a 1d 2e 6f 5f 68 61 6e |equd 0..|...o_han|
|000038d0| 64 6c 65 20 20 20 20 20 | 20 20 20 20 20 65 71 75 |dle | equ|
|000038e0| 64 20 30 0d 18 24 1d 2e | 69 5f 68 61 6e 64 6c 65 |d 0..$..|i_handle|
|000038f0| 20 20 20 20 20 20 20 20 | 20 20 65 71 75 64 20 30 | | equd 0|
|00003900| 0d 18 2e 1d 2e 6f 5f 73 | 74 61 72 74 20 20 20 20 |.....o_s|tart |
|00003910| 20 20 20 20 20 20 20 65 | 71 75 64 20 30 0d 18 38 | e|qud 0..8|
|00003920| 1d 2e 69 5f 73 74 61 72 | 74 20 20 20 20 20 20 20 |..i_star|t |
|00003930| 20 20 20 20 65 71 75 64 | 20 30 0d 18 42 1d 2e 69 | equd| 0..B..i|
|00003940| 6e 70 75 74 5f 62 75 66 | 73 69 7a 65 20 20 20 20 |nput_buf|size |
|00003950| 20 65 71 75 64 20 30 0d | 18 4c 1e 3b 2e 62 79 74 | equd 0.|.L.;.byt|
|00003960| 65 73 5f 74 6f 5f 74 72 | 61 6e 73 66 65 72 20 65 |es_to_tr|ansfer e|
|00003970| 71 75 64 20 30 0d 18 56 | 05 3b 0d 18 60 09 41 4c |qud 0..V|.;..`.AL|
|00003980| 49 47 4e 0d 18 6a 05 3b | 0d 18 74 11 2e 66 69 6c |IGN..j.;|..t..fil|
|00003990| 74 65 72 5f 73 74 6f 72 | 65 0d 18 7e 0d 5d 3a 50 |ter_stor|e..~.]:P|
|000039a0| 25 2b 3d 32 35 36 0d 18 | 88 21 e7 20 28 70 61 73 |%+=256..|.!. (pas|
|000039b0| 73 20 80 20 31 29 3e 30 | 20 8c 20 f1 22 53 69 7a |s . 1)>0| . ."Siz|
|000039c0| 65 20 3a 22 32 35 36 0d | 18 92 0e 5b 3a 4f 50 54 |e :"256.|...[:OPT|
|000039d0| 20 70 61 73 73 0d 18 9c | 0f 2e 6c 6f 73 65 5f 62 | pass...|..lose_b|
|000039e0| 6c 6f 63 6b 0d 18 a6 0d | 5d 3a 50 25 2b 3d 32 35 |lock....|]:P%+=25|
|000039f0| 36 0d 18 b0 21 e7 20 28 | 70 61 73 73 20 80 20 31 |6...!. (|pass . 1|
|00003a00| 29 3e 30 20 8c 20 f1 22 | 53 69 7a 65 20 3a 22 32 |)>0 . ."|Size :"2|
|00003a10| 35 36 0d 18 ba 0e 5b 3a | 4f 50 54 20 70 61 73 73 |56....[:|OPT pass|
|00003a20| 0d 18 c4 12 45 51 55 53 | 20 28 c4 32 34 2c bd 30 |....EQUS| (.24,.0|
|00003a30| 29 29 0d 18 ce 10 2e 65 | 6e 64 5f 6f 66 5f 63 6f |)).....e|nd_of_co|
|00003a40| 64 65 0d 18 d8 09 41 4c | 49 47 4e 0d 18 e2 05 5d |de....AL|IGN....]|
|00003a50| 0d 18 ec 05 ed 0d 18 f6 | 06 ef 36 0d 19 00 05 e1 |........|..6.....|
|00003a60| 0d 19 0a 05 3a 0d 19 14 | 15 dd 20 a4 61 64 72 28 |....:...|.. .adr(|
|00003a70| 72 65 67 25 2c 61 64 72 | 25 29 0d 19 1e 05 3a 0d |reg%,adr|%)....:.|
|00003a80| 19 28 32 f4 20 52 65 70 | 6c 61 63 65 6d 65 6e 74 |.(2. Rep|lacement|
|00003a90| 20 66 6f 72 20 41 44 52 | 27 73 20 74 68 61 74 20 | for ADR|'s that |
|00003aa0| 63 61 6e 27 74 20 62 65 | 20 63 6f 6d 70 75 74 65 |can't be| compute|
|00003ab0| 64 0d 19 32 05 3a 0d 19 | 3c 3c e7 20 72 65 67 25 |d..2.:..|<<. reg%|
|00003ac0| 3c 30 20 84 20 72 65 67 | 25 3e 31 34 20 8c 20 85 |<0 . reg|%>14 . .|
|00003ad0| 20 31 2c 22 4e 6f 20 73 | 75 63 68 20 72 65 67 69 | 1,"No s|uch regi|
|00003ae0| 73 74 6f 72 20 69 6e 20 | 41 44 52 20 6d 61 63 72 |stor in |ADR macr|
|00003af0| 6f 22 0d 19 46 22 e7 20 | 28 70 61 73 73 20 80 20 |o"..F". |(pass . |
|00003b00| 31 29 3e 30 20 f1 27 22 | 2d 3e 41 44 52 20 6d 61 |1)>0 .'"|->ADR ma|
|00003b10| 63 72 6f 22 0d 19 50 16 | 72 65 6c 61 64 72 25 3d |cro"..P.|reladr%=|
|00003b20| 61 64 72 25 2d 50 25 2d | 32 30 0d 19 5a 14 73 69 |adr%-P%-|20..Z.si|
|00003b30| 67 6e 25 3d b4 28 72 65 | 6c 61 64 72 25 29 0d 19 |gn%=.(re|ladr%)..|
|00003b40| 64 16 72 65 6c 61 64 72 | 25 3d 94 28 72 65 6c 61 |d.reladr|%=.(rela|
|00003b50| 64 72 25 29 0d 19 6e 26 | 5b 4f 50 54 70 61 73 73 |dr%)..n&|[OPTpass|
|00003b60| 3a 4d 4f 56 20 72 65 67 | 25 2c 23 28 72 65 6c 61 |:MOV reg|%,#(rela|
|00003b70| 64 72 25 20 80 20 26 46 | 46 29 0d 19 78 24 41 44 |dr% . &F|F)..x$AD|
|00003b80| 44 20 72 65 67 25 2c 72 | 65 67 25 2c 23 28 72 65 |D reg%,r|eg%,#(re|
|00003b90| 6c 61 64 72 25 20 80 20 | 26 46 46 30 30 29 0d 19 |ladr% . |&FF00)..|
|00003ba0| 82 28 41 44 44 20 72 65 | 67 25 2c 72 65 67 25 2c |.(ADD re|g%,reg%,|
|00003bb0| 23 28 72 65 6c 61 64 72 | 25 20 80 20 26 46 46 30 |#(reladr|% . &FF0|
|00003bc0| 30 30 30 29 3a 5d 0d 19 | 8c 0f e7 20 73 69 67 6e |000):]..|... sign|
|00003bd0| 25 3c 30 20 8c 0d 19 96 | 20 5b 4f 50 54 20 70 61 |%<0 ....| [OPT pa|
|00003be0| 73 73 3a 53 55 42 20 72 | 65 67 25 2c 50 43 2c 72 |ss:SUB r|eg%,PC,r|
|00003bf0| 65 67 25 3a 5d 0d 19 a0 | 05 cc 0d 19 aa 20 5b 4f |eg%:]...|..... [O|
|00003c00| 50 54 20 70 61 73 73 3a | 41 44 44 20 72 65 67 25 |PT pass:|ADD reg%|
|00003c10| 2c 50 43 2c 72 65 67 25 | 3a 5d 0d 19 b4 05 cd 0d |,PC,reg%|:]......|
|00003c20| 19 be 35 e7 20 28 70 61 | 73 73 20 80 20 31 29 3e |..5. (pa|ss . 1)>|
|00003c30| 30 20 8c 20 f1 22 2d 3e | 20 52 22 3b 72 65 67 25 |0 . ."->| R";reg%|
|00003c40| 3b 22 20 63 6f 6e 74 61 | 69 6e 73 20 26 22 3b 7e |;" conta|ins &";~|
|00003c50| 61 64 72 25 0d 19 c8 07 | 3d 22 22 0d 19 d2 05 3a |adr%....|=""....:|
|00003c60| 0d 19 dc 10 dd 20 f2 63 | 68 61 72 5f 69 6e 69 74 |..... .c|har_init|
|00003c70| 0d 19 e6 41 de 20 63 68 | 61 72 69 6d 61 67 65 20 |...A. ch|arimage |
|00003c80| 38 2c 69 6e 70 75 74 76 | 61 72 73 25 20 33 2a 34 |8,inputv|ars% 3*4|
|00003c90| 2c 6f 75 74 70 75 74 76 | 61 72 73 25 20 32 2a 34 |,outputv|ars% 2*4|
|00003ca0| 2c 73 65 6c 65 63 74 5f | 62 6c 6f 63 6b 20 32 35 |,select_|block 25|
|00003cb0| 36 0d 19 f0 36 f4 20 44 | 49 4d 20 66 69 6c 74 65 |6...6. D|IM filte|
|00003cc0| 72 5f 73 74 6f 72 65 20 | 35 31 32 3a 6c 6f 73 65 |r_store |512:lose|
|00003cd0| 5f 62 6c 6f 63 6b 3d 66 | 69 6c 74 65 72 5f 73 74 |_block=f|ilter_st|
|00003ce0| 6f 72 65 2b 32 35 36 0d | 19 fa 59 f4 20 49 46 20 |ore+256.|..Y. IF |
|00003cf0| 66 69 6c 74 65 72 5f 73 | 74 6f 72 65 20 3c 3e 20 |filter_s|tore <> |
|00003d00| 66 69 6c 74 65 72 5f 73 | 74 6f 72 65 20 74 68 65 |filter_s|tore the|
|00003d10| 6e 20 61 70 70 20 6f 6e | 6c 79 20 63 68 61 6e 67 |n app on|ly chang|
|00003d20| 65 73 20 66 69 6c 74 65 | 72 5f 73 74 6f 72 65 20 |es filte|r_store |
|00003d30| 69 66 20 4f 4b 20 63 6c | 69 63 6b 65 64 20 73 6f |if OK cl|icked so|
|00003d40| 0d 1a 04 5f f4 20 61 6c | 6c 20 63 68 61 6e 67 65 |..._. al|l change|
|00003d50| 20 77 69 6c 6c 20 6e 6f | 74 20 62 65 20 73 61 76 | will no|t be sav|
|00003d60| 65 64 2f 75 73 65 64 20 | 75 6e 6c 65 73 73 20 4f |ed/used |unless O|
|00003d70| 4b 20 63 6c 69 63 6b 65 | 64 2e 20 42 69 74 20 6c |K clicke|d. Bit l|
|00003d80| 69 6b 65 20 49 6d 70 72 | 65 73 73 69 6f 6e 20 73 |ike Impr|ession s|
|00003d90| 74 79 6c 65 20 64 69 61 | 6c 6f 67 75 65 73 2e 0d |tyle dia|logues..|
|00003da0| 1a 0e 0c de 20 43 24 28 | 31 36 29 0d 1a 18 22 6c |.... C$(|16)..."l|
|00003db0| 65 66 74 6d 61 72 67 69 | 6e 25 3d 31 38 36 3a 74 |eftmargi|n%=186:t|
|00003dc0| 6f 70 6d 61 72 67 69 6e | 25 3d 32 31 36 0d 1a 22 |opmargin|%=216.."|
|00003dd0| 1f 78 5f 73 70 61 63 69 | 6e 67 25 3d 33 32 3a 79 |.x_spaci|ng%=32:y|
|00003de0| 5f 73 70 61 63 69 6e 67 | 25 3d 33 36 0d 1a 2c 17 |_spacing|%=36..,.|
|00003df0| f2 72 65 73 65 74 5f 66 | 69 6c 74 65 72 5f 73 74 |.reset_f|ilter_st|
|00003e00| 6f 72 65 0d 1a 36 10 f2 | 67 65 74 6d 6f 64 65 69 |ore..6..|getmodei|
|00003e10| 6e 66 6f 0d 1a 40 05 e1 | 0d 1a 4a 05 3a 0d 1a 54 |nfo..@..|..J.:..T|
|00003e20| 1a dd 20 f2 73 65 74 75 | 70 64 72 61 67 62 6f 78 |.. .setu|pdragbox|
|00003e30| 28 77 25 2c 69 25 29 0d | 1a 5e 0d ea 20 77 65 78 |(w%,i%).|.^.. wex|
|00003e40| 2c 77 65 79 0d 1a 68 6a | 71 25 21 30 3d 77 25 3a |,wey..hj|q%!0=w%:|
|00003e50| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 57 69 6e 64 |.. "Wimp|_GetWind|
|00003e60| 6f 77 53 74 61 74 65 22 | 2c 2c 71 25 3a 77 65 78 |owState"|,,q%:wex|
|00003e70| 3d 71 25 21 34 2d 71 25 | 21 32 30 3a 77 65 79 3d |=q%!4-q%|!20:wey=|
|00003e80| 71 25 21 31 36 2d 71 25 | 21 32 34 3a 71 25 21 34 |q%!16-q%|!24:q%!4|
|00003e90| 3d 69 25 3a c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |=i%:.. "|Wimp_Get|
|00003ea0| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 71 25 0d 1a |IconStat|e",,q%..|
|00003eb0| 72 5f 21 71 25 3d 77 25 | 3a 71 25 21 34 3d 35 3a |r_!q%=w%|:q%!4=5:|
|00003ec0| 71 25 21 38 3d 71 25 21 | 38 2b 77 65 78 3a 71 25 |q%!8=q%!|8+wex:q%|
|00003ed0| 21 31 32 3d 71 25 21 31 | 32 2b 77 65 79 3a 71 25 |!12=q%!1|2+wey:q%|
|00003ee0| 21 31 36 3d 71 25 21 31 | 36 2b 77 65 78 3a 71 25 |!16=q%!1|6+wex:q%|
|00003ef0| 21 32 30 3d 71 25 21 32 | 30 2b 77 65 79 3a 71 25 |!20=q%!2|0+wey:q%|
|00003f00| 21 32 34 3d 30 3a 71 25 | 21 32 38 3d 30 0d 1a 7c |!24=0:q%|!28=0..||
|00003f10| 39 71 25 21 33 32 3d 26 | 37 46 46 46 46 46 46 46 |9q%!32=&|7FFFFFFF|
|00003f20| 3a 71 25 21 33 36 3d 26 | 37 46 46 46 46 46 46 46 |:q%!36=&|7FFFFFFF|
|00003f30| 3a c8 99 20 22 57 69 6d | 70 5f 44 72 61 67 42 6f |:.. "Wim|p_DragBo|
|00003f40| 78 22 2c 2c 71 25 0d 1a | 86 12 64 72 61 67 62 6f |x",,q%..|..dragbo|
|00003f50| 78 73 61 76 65 25 3d b9 | 0d 1a 90 05 e1 0d 1a 9a |xsave%=.|........|
|00003f60| 05 3a 0d 1a a4 19 dd 20 | f2 72 65 64 72 61 77 5f |.:..... |.redraw_|
|00003f70| 77 69 6e 64 6f 77 28 21 | 71 25 29 0d 1a ae 0b ea |window(!|q%).....|
|00003f80| 20 66 6c 61 67 25 0d 1a | b8 12 e7 20 71 25 21 30 | flag%..|... q%!0|
|00003f90| 3d 6d 61 69 6e 25 20 8c | 0d 1a c2 28 20 20 c8 99 |=main% .|...( ..|
|00003fa0| 20 22 57 69 6d 70 5f 52 | 65 64 72 61 77 57 69 6e | "Wimp_R|edrawWin|
|00003fb0| 64 6f 77 22 2c 2c 71 25 | 20 b8 20 66 6c 61 67 25 |dow",,q%| . flag%|
|00003fc0| 0d 1a cc 0e 20 20 c8 95 | 20 66 6c 61 67 25 0d 1a |.... ..| flag%..|
|00003fd0| d6 45 20 20 20 20 53 74 | 61 72 74 58 25 3d 71 25 |.E St|artX%=q%|
|00003fe0| 21 34 2b 6c 65 66 74 6d | 61 72 67 69 6e 25 2d 71 |!4+leftm|argin%-q|
|00003ff0| 25 21 32 30 3a 53 74 61 | 72 74 59 25 3d 71 25 21 |%!20:Sta|rtY%=q%!|
|00004000| 31 36 2d 74 6f 70 6d 61 | 72 67 69 6e 25 2d 71 25 |16-topma|rgin%-q%|
|00004010| 21 32 34 0d 1a e0 3b 20 | 20 20 20 ef 32 33 2c 31 |!24...; | .23,1|
|00004020| 37 2c 37 2c 34 2c 78 5f | 73 70 61 63 69 6e 67 25 |7,7,4,x_|spacing%|
|00004030| 3e 3e 78 5f 65 69 67 25 | 3b 79 5f 73 70 61 63 69 |>>x_eig%|;y_spaci|
|00004040| 6e 67 25 3e 3e 79 5f 65 | 69 67 25 3b 30 3b 0d 1a |ng%>>y_e|ig%;0;..|
|00004050| ea 2d 20 20 20 20 e3 20 | 59 25 3d 30 20 b8 20 31 |.- . |Y%=0 . 1|
|00004060| 36 3a 43 59 25 3d 53 74 | 61 72 74 59 25 2d 59 25 |6:CY%=St|artY%-Y%|
|00004070| 2a 79 5f 73 70 61 63 69 | 6e 67 25 0d 1a f4 27 20 |*y_spaci|ng%...' |
|00004080| 20 20 20 20 20 e7 20 43 | 59 25 3c 71 25 21 34 30 | . C|Y%<q%!40|
|00004090| 2b 33 31 20 80 20 43 59 | 25 3e 3d 71 25 21 33 32 |+31 . CY|%>=q%!32|
|000040a0| 20 8c 0d 1a fe 23 20 20 | 20 20 20 20 20 20 ec 20 | ....# | . |
|000040b0| 53 74 61 72 74 58 25 2c | 43 59 25 3a f1 20 43 24 |StartX%,|CY%:. C$|
|000040c0| 28 59 25 29 3b 0d 1b 08 | 0b 20 20 20 20 20 20 cd |(Y%);...|. .|
|000040d0| 0d 1b 12 09 20 20 20 20 | ed 0d 1b 1c 2b 20 20 20 |.... |....+ |
|000040e0| 20 ef 32 33 2c 31 37 2c | 37 2c 34 2c 31 36 3e 3e | .23,17,|7,4,16>>|
|000040f0| 78 5f 65 69 67 25 3b 33 | 32 3e 3e 79 5f 65 69 67 |x_eig%;3|2>>y_eig|
|00004100| 25 3b 30 3b 0d 1b 26 1d | 20 20 20 20 f2 72 65 64 |%;0;..&.| .red|
|00004110| 72 61 77 5f 73 65 6c 65 | 63 74 69 6f 6e 28 71 25 |raw_sele|ction(q%|
|00004120| 29 0d 1b 30 29 20 20 20 | 20 c8 99 22 57 69 6d 70 |)..0) | .."Wimp|
|00004130| 5f 47 65 74 52 65 63 74 | 61 6e 67 6c 65 22 2c 2c |_GetRect|angle",,|
|00004140| 71 25 20 b8 20 66 6c 61 | 67 25 0d 1b 3a 07 20 20 |q% . fla|g%..:. |
|00004150| ce 0d 1b 44 05 cd 0d 1b | 4e 05 e1 0d 1b 58 05 3a |...D....|N....X.:|
|00004160| 0d 1b 62 0f dd a4 63 68 | 28 78 25 2c 79 25 29 0d |..b...ch|(x%,y%).|
|00004170| 1b 6c 10 ea 20 43 24 2c | 69 25 2c 63 68 61 72 0d |.l.. C$,|i%,char.|
|00004180| 1b 76 25 63 68 61 72 3d | 3f 28 66 69 6c 74 65 72 |.v%char=|?(filter|
|00004190| 5f 73 74 6f 72 65 2b 28 | 79 25 2d 31 29 2a 31 36 |_store+(|y%-1)*16|
|000041a0| 2b 78 25 29 0d 1b 80 2b | e7 20 3f 28 6c 6f 73 65 |+x%)...+|. ?(lose|
|000041b0| 5f 62 6c 6f 63 6b 2b 28 | 79 25 2d 31 29 2a 31 36 |_block+(|y%-1)*16|
|000041c0| 2b 78 25 29 20 8c 20 63 | 68 61 72 3d 31 36 30 0d |+x%) . c|har=160.|
|000041d0| 1b 8a 1a e7 20 63 68 61 | 72 3c 33 32 20 84 20 63 |.... cha|r<32 . c|
|000041e0| 68 61 72 3d 31 32 37 20 | 8c 0d 1b 94 2d 20 20 e7 |har=127 |....- .|
|000041f0| 20 63 68 61 72 3d 31 32 | 37 20 8c 63 68 61 72 3d | char=12|7 .char=|
|00004200| 97 22 3f 22 20 8b 63 68 | 61 72 3d 63 68 61 72 20 |."?" .ch|ar=char |
|00004210| 84 20 97 22 40 22 0d 1b | 9e 2f 20 20 63 68 61 72 |. ."@"..|./ char|
|00004220| 69 6d 61 67 65 3f 30 3d | 63 68 61 72 3a c8 99 22 |image?0=|char:.."|
|00004230| 4f 53 5f 57 6f 72 64 22 | 2c 31 30 2c 63 68 61 72 |OS_Word"|,10,char|
|00004240| 69 6d 61 67 65 0d 1b a8 | 10 20 20 43 24 3d bd 32 |image...|. C$=.2|
|00004250| 33 2b bd 33 32 0d 1b b2 | 10 20 20 e3 20 69 25 3d |3+.32...|. . i%=|
|00004260| 31 20 b8 20 38 0d 1b bc | 22 20 20 20 20 20 43 24 |1 . 8...|" C$|
|00004270| 2b 3d bd 28 63 68 61 72 | 69 6d 61 67 65 3f 69 25 |+=.(char|image?i%|
|00004280| 20 82 20 26 46 46 29 0d | 1b c6 07 20 20 ed 0d 1b | . &FF).|... ...|
|00004290| d0 0d 20 20 43 24 2b 3d | 22 20 22 0d 1b da 07 20 |.. C$+=|" ".... |
|000042a0| 20 cc 0d 1b e4 0e 20 20 | 43 24 3d bd 63 68 61 72 | ..... |C$=.char|
|000042b0| 0d 1b ee 05 cd 0d 1b f8 | 07 3d 43 24 0d 1c 02 05 |........|.=C$....|
|000042c0| 3a 0d 1c 0c 19 dd a4 63 | 6f 6f 72 64 73 74 6f 63 |:......c|oordstoc|
|000042d0| 68 61 72 28 78 25 2c 79 | 25 29 0d 1c 16 0b ea 20 |har(x%,y|%)..... |
|000042e0| 63 68 61 72 25 0d 1c 20 | 0d 21 71 25 3d 6d 61 69 |char%.. |.!q%=mai|
|000042f0| 6e 25 0d 1c 2a 20 c8 99 | 20 22 57 69 6d 70 5f 47 |n%..* ..| "Wimp_G|
|00004300| 65 74 57 69 6e 64 6f 77 | 53 74 61 74 65 22 2c 2c |etWindow|State",,|
|00004310| 71 25 0d 1c 34 49 79 6f | 66 66 73 65 74 25 3d 28 |q%..4Iyo|ffset%=(|
|00004320| 71 25 21 31 36 2d 74 6f | 70 6d 61 72 67 69 6e 25 |q%!16-to|pmargin%|
|00004330| 2d 71 25 21 32 34 2b 28 | 28 79 5f 73 70 61 63 69 |-q%!24+(|(y_spaci|
|00004340| 6e 67 25 2d 33 32 29 3e | 3e 31 29 2d 79 25 29 81 |ng%-32)>|>1)-y%).|
|00004350| 20 79 5f 73 70 61 63 69 | 6e 67 25 0d 1c 3e 0c 63 | y_spaci|ng%..>.c|
|00004360| 68 61 72 25 3d 2d 31 0d | 1c 48 22 e7 20 79 6f 66 |har%=-1.|.H". yof|
|00004370| 66 73 65 74 25 3e 3d 31 | 20 80 20 79 6f 66 66 73 |fset%>=1| . yoffs|
|00004380| 65 74 25 3c 3d 31 36 20 | 8c 0d 1c 52 4d 20 20 78 |et%<=16 |...RM x|
|00004390| 6f 66 66 73 65 74 25 3d | 28 78 25 2d 28 71 25 21 |offset%=|(x%-(q%!|
|000043a0| 34 2b 6c 65 66 74 6d 61 | 72 67 69 6e 25 2d 71 25 |4+leftma|rgin%-q%|
|000043b0| 21 32 30 2b 28 28 31 36 | 2d 78 5f 73 70 61 63 69 |!20+((16|-x_spaci|
|000043c0| 6e 67 25 29 3e 3e 31 29 | 29 29 81 20 78 5f 73 70 |ng%)>>1)|)). x_sp|
|000043d0| 61 63 69 6e 67 25 0d 1c | 5c 24 20 20 e7 20 78 6f |acing%..|\$ . xo|
|000043e0| 66 66 73 65 74 25 3e 3d | 31 20 80 20 78 6f 66 66 |ffset%>=|1 . xoff|
|000043f0| 73 65 74 25 3c 3d 31 36 | 20 8c 0d 1c 66 2a 20 20 |set%<=16| ...f* |
|00004400| 20 20 63 68 61 72 25 3d | 28 78 6f 66 66 73 65 74 | char%=|(xoffset|
|00004410| 25 2d 31 29 2b 28 79 6f | 66 66 73 65 74 25 2d 31 |%-1)+(yo|ffset%-1|
|00004420| 29 2a 31 36 0d 1c 70 07 | 20 20 cd 0d 1c 7a 05 cd |)*16..p.| ...z..|
|00004430| 0d 1c 84 0a 3d 63 68 61 | 72 25 0d 1c 8e 05 3a 0d |....=cha|r%....:.|
|00004440| 1c 98 12 dd 20 f2 67 65 | 74 6d 6f 64 65 69 6e 66 |.... .ge|tmodeinf|
|00004450| 6f 0d 1c a2 18 ea 20 78 | 5f 6c 6f 6f 70 25 2c 79 |o..... x|_loop%,y|
|00004460| 5f 6c 6f 6f 70 25 2c 52 | 24 0d 1c ac 31 69 6e 70 |_loop%,R|$...1inp|
|00004470| 75 74 76 61 72 73 25 21 | 30 3d 34 3a 69 6e 70 75 |utvars%!|0=4:inpu|
|00004480| 74 76 61 72 73 25 21 34 | 3d 35 3a 69 6e 70 75 74 |tvars%!4|=5:input|
|00004490| 76 61 72 73 25 21 38 3d | 2d 31 0d 1c b6 32 c8 99 |vars%!8=|-1...2..|
|000044a0| 22 4f 53 5f 52 65 61 64 | 56 64 75 56 61 72 69 61 |"OS_Read|VduVaria|
|000044b0| 62 6c 65 73 22 2c 69 6e | 70 75 74 76 61 72 73 25 |bles",in|putvars%|
|000044c0| 2c 6f 75 74 70 75 74 76 | 61 72 73 25 0d 1c c0 2d |,outputv|ars%...-|
|000044d0| 78 5f 65 69 67 25 3d 6f | 75 74 70 75 74 76 61 72 |x_eig%=o|utputvar|
|000044e0| 73 25 21 30 3a 79 5f 65 | 69 67 25 3d 6f 75 74 70 |s%!0:y_e|ig%=outp|
|000044f0| 75 74 76 61 72 73 25 21 | 34 0d 1c ca 1d 43 24 28 |utvars%!|4....C$(|
|00004500| 30 29 3d 22 20 30 31 32 | 33 34 35 36 37 38 39 41 |0)=" 012|3456789A|
|00004510| 42 43 44 45 46 22 0d 1c | d4 36 e3 20 79 5f 6c 6f |BCDEF"..|.6. y_lo|
|00004520| 6f 70 25 3d 31 20 b8 20 | 31 36 3a 43 24 28 79 5f |op%=1 . |16:C$(y_|
|00004530| 6c 6f 6f 70 25 29 3d a4 | 6d 61 6b 65 5f 6c 69 6e |loop%)=.|make_lin|
|00004540| 65 28 79 5f 6c 6f 6f 70 | 25 29 3a ed 0d 1c de 05 |e(y_loop|%):.....|
|00004550| e1 0d 1c e8 05 3a 0d 1c | f2 14 dd 20 a4 6d 61 6b |.....:..|... .mak|
|00004560| 65 5f 6c 69 6e 65 28 61 | 25 29 0d 1c fc 0b ea 20 |e_line(a|%)..... |
|00004570| 78 25 2c 52 24 0d 1d 06 | 15 52 24 3d bd 32 33 2b |x%,R$...|.R$=.23+|
|00004580| bd 33 32 2b c4 38 2c bd | 30 29 0d 1d 10 13 43 24 |.32+.8,.|0)....C$|
|00004590| 28 61 25 29 3d c3 7e 28 | 61 25 2d 31 29 0d 1d 1a |(a%)=.~(|a%-1)...|
|000045a0| 24 e3 20 78 25 3d 30 20 | b8 20 31 35 3a 43 24 28 |$. x%=0 |. 15:C$(|
|000045b0| 61 25 29 2b 3d a4 63 68 | 28 78 25 2c 61 25 29 3a |a%)+=.ch|(x%,a%):|
|000045c0| ed 0d 1d 24 0e 3d 43 24 | 28 61 25 29 2b 52 24 0d |...$.=C$|(a%)+R$.|
|000045d0| 1d 2e 05 3a 0d 1d 38 19 | dd 20 f2 72 65 73 65 74 |...:..8.|. .reset|
|000045e0| 5f 66 69 6c 74 65 72 5f | 73 74 6f 72 65 0d 1d 42 |_filter_|store..B|
|000045f0| 08 ea 20 6c 25 0d 1d 4c | 23 e3 20 6c 25 3d 30 b8 |.. l%..L|#. l%=0.|
|00004600| 32 35 35 3a 66 69 6c 74 | 65 72 5f 73 74 6f 72 65 |255:filt|er_store|
|00004610| 3f 6c 25 3d 6c 25 3a ed | 0d 1d 56 22 e3 20 6c 25 |?l%=l%:.|..V". l%|
|00004620| 3d 30 b8 32 35 35 88 34 | 3a 6c 6f 73 65 5f 62 6c |=0.255.4|:lose_bl|
|00004630| 6f 63 6b 21 6c 25 3d 30 | 3a ed 0d 1d 60 11 f2 63 |ock!l%=0|:...`..c|
|00004640| 6c 65 61 72 5f 61 6c 6c | 28 a3 29 0d 1d 6a 10 f2 |lear_all|(.)..j..|
|00004650| 67 65 74 6d 6f 64 65 69 | 6e 66 6f 0d 1d 74 4f c8 |getmodei|nfo..tO.|
|00004660| 99 20 22 57 69 6d 70 5f | 46 6f 72 63 65 52 65 64 |. "Wimp_|ForceRed|
|00004670| 72 61 77 22 2c 6d 61 69 | 6e 25 2c 77 6f 72 6b 5f |raw",mai|n%,work_|
|00004680| 78 5f 6d 69 6e 25 2c 77 | 6f 72 6b 5f 79 5f 6d 69 |x_min%,w|ork_y_mi|
|00004690| 6e 25 2c 77 6f 72 6b 5f | 78 5f 6d 61 78 25 2c 77 |n%,work_|x_max%,w|
|000046a0| 6f 72 6b 5f 79 5f 6d 61 | 78 25 0d 1d 7e 05 e1 0d |ork_y_ma|x%..~...|
|000046b0| 1d 88 05 3a 0d 1d 92 15 | dd 20 a4 68 65 78 5f 73 |...:....|. .hex_s|
|000046c0| 74 72 28 70 25 2c 6c 25 | 29 0d 1d 9c 11 ea 20 61 |tr(p%,l%|)..... a|
|000046d0| 24 2c 61 25 3a 61 24 3d | 22 22 0d 1d a6 38 c8 95 |$,a%:a$=|""...8..|
|000046e0| 20 28 61 25 3c 6c 25 20 | 80 20 a7 22 30 31 32 33 | (a%<l% |. ."0123|
|000046f0| 34 35 36 37 38 39 61 62 | 63 64 65 66 41 42 43 44 |456789ab|cdefABCD|
|00004700| 45 46 22 2c bd 3f 28 70 | 25 2b 61 25 29 29 3c 3e |EF",.?(p|%+a%))<>|
|00004710| 30 29 0d 1d b0 13 61 24 | 2b 3d bd 28 3f 28 70 25 |0)....a$|+=.(?(p%|
|00004720| 2b 61 25 29 29 0d 1d ba | 09 61 25 2b 3d 31 0d 1d |+a%))...|.a%+=1..|
|00004730| c4 05 ce 0d 1d ce 12 e7 | 20 61 25 3c 3e 6c 25 20 |........| a%<>l% |
|00004740| 8c 20 3d 20 30 0d 1d d8 | 0e 3d a0 28 22 26 22 2b |. = 0...|.=.("&"+|
|00004750| 61 24 29 0d 1d e2 05 3a | 0d 1d ec 21 dd 20 f2 66 |a$)....:|...!. .f|
|00004760| 69 6c 74 65 72 5f 66 69 | 6c 74 65 72 5f 73 74 6f |ilter_fi|lter_sto|
|00004770| 72 65 28 66 24 2c 61 25 | 29 0d 1d f6 08 ea 20 6c |re(f$,a%|)..... l|
|00004780| 25 0d 1e 00 10 e3 20 6c | 25 3d 30 20 b8 20 32 35 |%..... l|%=0 . 25|
|00004790| 35 0d 1e 0a 62 e7 20 3f | 28 73 65 6c 65 63 74 5f |5...b. ?|(select_|
|000047a0| 62 6c 6f 63 6b 2b 6c 25 | 29 20 80 20 ac 20 3f 28 |block+l%|) . . ?(|
|000047b0| 6c 6f 73 65 5f 62 6c 6f | 63 6b 2b 6c 25 29 20 8c |lose_blo|ck+l%) .|
|000047c0| 20 3f 28 66 69 6c 74 65 | 72 5f 73 74 6f 72 65 2b | ?(filte|r_store+|
|000047d0| 6c 25 29 3d a0 28 c3 28 | 3f 28 66 69 6c 74 65 72 |l%)=.(.(|?(filter|
|000047e0| 5f 73 74 6f 72 65 2b 6c | 25 29 29 2b 66 24 2b c3 |_store+l|%))+f$+.|
|000047f0| 61 25 29 0d 1e 14 05 ed | 0d 1e 1e 26 e7 20 63 6c |a%).....|...&. cl|
|00004800| 65 61 72 5f 73 65 6c 65 | 63 74 69 6f 6e 25 20 8c |ear_sele|ction% .|
|00004810| 20 f2 63 6c 65 61 72 5f | 61 6c 6c 28 a3 29 0d 1e | .clear_|all(.)..|
|00004820| 28 10 f2 67 65 74 6d 6f | 64 65 69 6e 66 6f 0d 1e |(..getmo|deinfo..|
|00004830| 32 4f c8 99 20 22 57 69 | 6d 70 5f 46 6f 72 63 65 |2O.. "Wi|mp_Force|
|00004840| 52 65 64 72 61 77 22 2c | 6d 61 69 6e 25 2c 77 6f |Redraw",|main%,wo|
|00004850| 72 6b 5f 78 5f 6d 69 6e | 25 2c 77 6f 72 6b 5f 79 |rk_x_min|%,work_y|
|00004860| 5f 6d 69 6e 25 2c 77 6f | 72 6b 5f 78 5f 6d 61 78 |_min%,wo|rk_x_max|
|00004870| 25 2c 77 6f 72 6b 5f 79 | 5f 6d 61 78 25 0d 1e 3c |%,work_y|_max%..<|
|00004880| 05 e1 0d 1e 46 05 3a 0d | 1e 50 17 dd 20 f2 6e 6f |....F.:.|.P.. .no|
|00004890| 74 5f 66 69 6c 74 65 72 | 5f 73 74 6f 72 65 0d 1e |t_filter|_store..|
|000048a0| 5a 08 ea 20 6c 25 0d 1e | 64 10 e3 20 6c 25 3d 30 |Z.. l%..|d.. l%=0|
|000048b0| 20 b8 20 32 35 35 0d 1e | 6e 59 e7 20 3f 28 73 65 | . 255..|nY. ?(se|
|000048c0| 6c 65 63 74 5f 62 6c 6f | 63 6b 2b 6c 25 29 20 80 |lect_blo|ck+l%) .|
|000048d0| 20 ac 20 3f 28 6c 6f 73 | 65 5f 62 6c 6f 63 6b 2b | . ?(los|e_block+|
|000048e0| 6c 25 29 20 8c 20 3f 28 | 66 69 6c 74 65 72 5f 73 |l%) . ?(|filter_s|
|000048f0| 74 6f 72 65 2b 6c 25 29 | 3d ac 20 28 3f 28 66 69 |tore+l%)|=. (?(fi|
|00004900| 6c 74 65 72 5f 73 74 6f | 72 65 2b 6c 25 29 29 0d |lter_sto|re+l%)).|
|00004910| 1e 78 05 ed 0d 1e 82 26 | e7 20 63 6c 65 61 72 5f |.x.....&|. clear_|
|00004920| 73 65 6c 65 63 74 69 6f | 6e 25 20 8c 20 f2 63 6c |selectio|n% . .cl|
|00004930| 65 61 72 5f 61 6c 6c 28 | a3 29 0d 1e 8c 10 f2 67 |ear_all(|.).....g|
|00004940| 65 74 6d 6f 64 65 69 6e | 66 6f 0d 1e 96 4f c8 99 |etmodein|fo...O..|
|00004950| 20 22 57 69 6d 70 5f 46 | 6f 72 63 65 52 65 64 72 | "Wimp_F|orceRedr|
|00004960| 61 77 22 2c 6d 61 69 6e | 25 2c 77 6f 72 6b 5f 78 |aw",main|%,work_x|
|00004970| 5f 6d 69 6e 25 2c 77 6f | 72 6b 5f 79 5f 6d 69 6e |_min%,wo|rk_y_min|
|00004980| 25 2c 77 6f 72 6b 5f 78 | 5f 6d 61 78 25 2c 77 6f |%,work_x|_max%,wo|
|00004990| 72 6b 5f 79 5f 6d 61 78 | 25 0d 1e a0 05 e1 0d 1e |rk_y_max|%.......|
|000049a0| aa 05 3a 0d 1e b4 17 dd | 20 a4 66 69 6c 65 73 70 |..:.....| .filesp|
|000049b0| 72 69 74 65 28 74 79 70 | 65 29 0d 1e be 11 ea 20 |rite(typ|e)..... |
|000049c0| 74 79 70 65 24 2c 66 6c | 61 67 73 0d 1e c8 1b e7 |type$,fl|ags.....|
|000049d0| 20 74 79 70 65 3d 2d 31 | 20 8c 20 3d 22 66 69 6c | type=-1| . ="fil|
|000049e0| 65 5f 78 78 78 22 0d 1e | d2 21 74 79 70 65 24 3d |e_xxx"..|.!type$=|
|000049f0| 22 66 69 6c 65 5f 22 2b | c2 22 30 30 22 2b c3 7e |"file_"+|."00"+.~|
|00004a00| 74 79 70 65 2c 33 29 0d | 1e dc 2a c8 99 20 22 58 |type,3).|..*.. "X|
|00004a10| 57 69 6d 70 5f 53 70 72 | 69 74 65 4f 70 22 2c 32 |Wimp_Spr|iteOp",2|
|00004a20| 34 2c 2c 74 79 70 65 24 | 20 b8 20 3b 66 6c 61 67 |4,,type$| . ;flag|
|00004a30| 73 0d 1e e6 24 e7 20 28 | 66 6c 61 67 73 20 80 20 |s...$. (|flags . |
|00004a40| 31 29 20 8c 20 74 79 70 | 65 24 3d 22 66 69 6c 65 |1) . typ|e$="file|
|00004a50| 5f 78 78 78 22 0d 1e f0 | 0a 3d 74 79 70 65 24 0d |_xxx"...|.=type$.|
|00004a60| 1e fa 05 3a 0d 1f 04 1b | dd 20 f2 73 65 74 5f 73 |...:....|. .set_s|
|00004a70| 61 76 65 5f 74 79 70 65 | 28 74 79 70 65 25 29 0d |ave_type|(type%).|
|00004a80| 1f 0e 24 24 73 61 76 65 | 5f 73 70 72 69 74 65 25 |..$$save|_sprite%|
|00004a90| 3d a4 66 69 6c 65 73 70 | 72 69 74 65 28 74 79 70 |=.filesp|rite(typ|
|00004aa0| 65 25 29 0d 1f 18 24 71 | 25 21 30 3d 73 61 76 65 |e%)...$q|%!0=save|
|00004ab0| 25 3a 71 25 21 34 3d 32 | 3a 71 25 21 38 3d 30 3a |%:q%!4=2|:q%!8=0:|
|00004ac0| 71 25 21 31 32 3d 30 0d | 1f 22 1e c8 99 20 22 57 |q%!12=0.|."... "W|
|00004ad0| 69 6d 70 5f 53 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_SetI|conState|
|00004ae0| 22 2c 2c 71 25 0d 1f 2c | 05 e1 0d 1f 36 05 3a 0d |",,q%..,|....6.:.|
|00004af0| 1f 40 16 dd 20 f2 66 69 | 6c 74 65 72 5f 73 61 76 |.@.. .fi|lter_sav|
|00004b00| 65 28 61 24 29 0d 1f 4a | 1c c8 99 20 22 57 69 6d |e(a$)..J|... "Wim|
|00004b10| 70 5f 43 72 65 61 74 65 | 4d 65 6e 75 22 2c 2c 2d |p_Create|Menu",,-|
|00004b20| 31 0d 1f 54 2d ff 20 22 | 53 61 76 65 20 22 2b 61 |1..T-. "|Save "+a|
|00004b30| 24 2b 22 20 22 2b c3 7e | 28 66 69 6c 74 65 72 5f |$+" "+.~|(filter_|
|00004b40| 73 74 6f 72 65 29 2b 22 | 20 2b 32 30 30 22 0d 1f |store)+"| +200"..|
|00004b50| 5e 2f ff 20 22 53 65 74 | 54 79 70 65 20 22 2b 61 |^/. "Set|Type "+a|
|00004b60| 24 2b 22 20 22 2b c2 22 | 30 30 22 2b c3 7e 66 69 |$+" "+."|00"+.~fi|
|00004b70| 6c 74 65 72 5f 74 79 70 | 65 25 2c 33 29 0d 1f 68 |lter_typ|e%,3)..h|
|00004b80| 12 66 69 6c 74 65 72 5f | 73 61 76 65 25 3d a3 0d |.filter_|save%=..|
|00004b90| 1f 72 05 e1 0d 1f 7c 05 | 3a 0d 1f 86 16 dd 20 f2 |.r....|.|:..... .|
|00004ba0| 66 69 6c 74 65 72 5f 6c | 6f 61 64 28 61 24 29 0d |filter_l|oad(a$).|
|00004bb0| 1f 90 15 c8 99 20 22 48 | 6f 75 72 67 6c 61 73 73 |..... "H|ourglass|
|00004bc0| 5f 4f 6e 22 0d 1f 9a 26 | c8 99 20 22 4f 53 5f 46 |_On"...&|.. "OS_F|
|00004bd0| 69 6c 65 22 2c 26 46 46 | 2c 61 24 2c 66 69 6c 74 |ile",&FF|,a$,filt|
|00004be0| 65 72 5f 73 74 6f 72 65 | 2c 30 0d 1f a4 10 f2 67 |er_store|,0.....g|
|00004bf0| 65 74 6d 6f 64 65 69 6e | 66 6f 0d 1f ae 4f c8 99 |etmodein|fo...O..|
|00004c00| 20 22 57 69 6d 70 5f 46 | 6f 72 63 65 52 65 64 72 | "Wimp_F|orceRedr|
|00004c10| 61 77 22 2c 6d 61 69 6e | 25 2c 77 6f 72 6b 5f 78 |aw",main|%,work_x|
|00004c20| 5f 6d 69 6e 25 2c 77 6f | 72 6b 5f 79 5f 6d 69 6e |_min%,wo|rk_y_min|
|00004c30| 25 2c 77 6f 72 6b 5f 78 | 5f 6d 61 78 25 2c 77 6f |%,work_x|_max%,wo|
|00004c40| 72 6b 5f 79 5f 6d 61 78 | 25 0d 1f b8 16 c8 99 20 |rk_y_max|%...... |
|00004c50| 22 48 6f 75 72 67 6c 61 | 73 73 5f 4f 66 66 22 0d |"Hourgla|ss_Off".|
|00004c60| 1f c2 05 e1 0d 1f cc 05 | 3a 0d 1f d6 2b dd 20 f2 |........|:...+. .|
|00004c70| 63 68 61 72 74 6f 63 6f | 6f 72 64 73 28 61 25 2c |chartoco|ords(a%,|
|00004c80| f8 20 77 69 6e 64 5f 78 | 25 2c f8 20 77 69 6e 64 |. wind_x|%,. wind|
|00004c90| 5f 79 25 29 0d 1f e0 1d | ea 20 63 68 61 72 25 2c |_y%)....|. char%,|
|00004ca0| 78 6f 66 66 73 65 74 25 | 2c 79 6f 66 66 73 65 74 |xoffset%|,yoffset|
|00004cb0| 25 0d 1f ea 16 21 74 65 | 6d 70 5f 62 6c 6f 63 6b |%....!te|mp_block|
|00004cc0| 25 3d 6d 61 69 6e 25 0d | 1f f4 29 c8 99 20 22 57 |%=main%.|..).. "W|
|00004cd0| 69 6d 70 5f 47 65 74 57 | 69 6e 64 6f 77 53 74 61 |imp_GetW|indowSta|
|00004ce0| 74 65 22 2c 2c 74 65 6d | 70 5f 62 6c 6f 63 6b 25 |te",,tem|p_block%|
|00004cf0| 0d 1f fe 18 78 6f 66 66 | 73 65 74 25 3d 28 61 25 |....xoff|set%=(a%|
|00004d00| 20 83 20 31 36 29 2b 31 | 0d 20 08 18 79 6f 66 66 | . 16)+1|. ..yoff|
|00004d10| 73 65 74 25 3d 28 61 25 | 20 81 20 31 36 29 2b 31 |set%=(a%| . 16)+1|
|00004d20| 0d 20 12 42 77 69 6e 64 | 5f 78 25 3d 28 78 6f 66 |. .Bwind|_x%=(xof|
|00004d30| 66 73 65 74 25 2a 78 5f | 73 70 61 63 69 6e 67 25 |fset%*x_|spacing%|
|00004d40| 29 2b 6c 65 66 74 6d 61 | 72 67 69 6e 25 2b 28 28 |)+leftma|rgin%+((|
|00004d50| 31 36 2d 78 5f 73 70 61 | 63 69 6e 67 25 29 3e 3e |16-x_spa|cing%)>>|
|00004d60| 31 29 0d 20 1c 59 77 69 | 6e 64 5f 79 25 3d 28 28 |1). .Ywi|nd_y%=((|
|00004d70| 79 5f 73 70 61 63 69 6e | 67 25 2d 33 32 29 3e 3e |y_spacin|g%-32)>>|
|00004d80| 31 29 2d 74 6f 70 6d 61 | 72 67 69 6e 25 2d 28 79 |1)-topma|rgin%-(y|
|00004d90| 6f 66 66 73 65 74 25 2a | 79 5f 73 70 61 63 69 6e |offset%*|y_spacin|
|00004da0| 67 25 29 2b 38 3a f4 20 | 38 20 69 73 20 61 20 66 |g%)+8:. |8 is a f|
|00004db0| 75 64 67 65 20 76 61 6c | 75 65 21 0d 20 26 63 f4 |udge val|ue!. &c.|
|00004dc0| 20 73 63 72 65 65 6e 5f | 79 25 3d 74 65 6d 70 5f | screen_|y%=temp_|
|00004dd0| 62 6c 6f 63 6b 25 21 31 | 36 2d 74 6f 70 6d 61 72 |block%!1|6-topmar|
|00004de0| 67 69 6e 25 2d 74 65 6d | 70 5f 62 6c 6f 63 6b 25 |gin%-tem|p_block%|
|00004df0| 21 32 34 2b 28 28 79 5f | 73 70 61 63 69 6e 67 25 |!24+((y_|spacing%|
|00004e00| 2d 33 32 29 3e 3e 31 29 | 2d 28 79 6f 66 66 73 65 |-32)>>1)|-(yoffse|
|00004e10| 74 25 2a 79 5f 73 70 61 | 63 69 6e 67 25 29 0d 20 |t%*y_spa|cing%). |
|00004e20| 30 65 f4 20 73 63 72 65 | 65 6e 5f 78 25 3d 28 78 |0e. scre|en_x%=(x|
|00004e30| 6f 66 66 73 65 74 25 2a | 78 5f 73 70 61 63 69 6e |offset%*|x_spacin|
|00004e40| 67 25 29 2b 28 74 65 6d | 70 5f 62 6c 6f 63 6b 25 |g%)+(tem|p_block%|
|00004e50| 21 34 2b 6c 65 66 74 6d | 61 72 67 69 6e 25 2d 74 |!4+leftm|argin%-t|
|00004e60| 65 6d 70 5f 62 6c 6f 63 | 6b 25 21 32 30 2b 28 28 |emp_bloc|k%!20+((|
|00004e70| 31 36 2d 78 5f 73 70 61 | 63 69 6e 67 25 29 3e 3e |16-x_spa|cing%)>>|
|00004e80| 31 29 29 0d 20 3a 05 e1 | 0d 20 44 05 3a 0d 20 4e |1)). :..|. D.:. N|
|00004e90| 15 dd 20 f2 73 65 6c 65 | 63 74 5f 65 6f 72 28 61 |.. .sele|ct_eor(a|
|00004ea0| 25 29 0d 20 58 11 ea 20 | 78 25 2c 79 25 2c 66 6c |%). X.. |x%,y%,fl|
|00004eb0| 61 67 25 0d 20 62 1b f2 | 63 68 61 72 74 6f 63 6f |ag%. b..|chartoco|
|00004ec0| 6f 72 64 73 28 61 25 2c | 78 25 2c 79 25 29 0d 20 |ords(a%,|x%,y%). |
|00004ed0| 6c 4a 71 25 21 30 3d 6d | 61 69 6e 25 3a 71 25 21 |lJq%!0=m|ain%:q%!|
|00004ee0| 34 3d 78 25 3a 71 25 21 | 38 3d 79 25 2d 79 5f 73 |4=x%:q%!|8=y%-y_s|
|00004ef0| 70 61 63 69 6e 67 25 2d | 36 3a 71 25 21 31 32 3d |pacing%-|6:q%!12=|
|00004f00| 78 25 2b 78 5f 73 70 61 | 63 69 6e 67 25 3a 71 25 |x%+x_spa|cing%:q%|
|00004f10| 21 31 36 3d 79 25 2d 36 | 0d 20 76 26 c8 99 20 22 |!16=y%-6|. v&.. "|
|00004f20| 57 69 6d 70 5f 55 70 64 | 61 74 65 57 69 6e 64 6f |Wimp_Upd|ateWindo|
|00004f30| 77 22 2c 2c 71 25 20 b8 | 20 66 6c 61 67 25 0d 20 |w",,q% .| flag%. |
|00004f40| 80 0c c8 95 20 66 6c 61 | 67 25 0d 20 8a 09 e6 20 |.... fla|g%. ... |
|00004f50| 33 2c 37 0d 20 94 2b c8 | 93 20 c8 90 20 71 25 21 |3,7. .+.|. .. q%!|
|00004f60| 32 38 2c 71 25 21 33 32 | 2c 78 5f 73 70 61 63 69 |28,q%!32|,x_spaci|
|00004f70| 6e 67 25 2c 79 5f 73 70 | 61 63 69 6e 67 25 0d 20 |ng%,y_sp|acing%. |
|00004f80| 9e 26 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 52 65 |.&.. "Wi|mp_GetRe|
|00004f90| 63 74 61 6e 67 6c 65 22 | 2c 2c 71 25 20 b8 20 66 |ctangle"|,,q% . f|
|00004fa0| 6c 61 67 25 0d 20 a8 05 | ce 0d 20 b2 05 e1 0d 20 |lag%. ..|.. .... |
|00004fb0| bc 05 3a 0d 20 c6 18 dd | 20 f2 74 6f 67 67 6c 65 |..:. ...| .toggle|
|00004fc0| 5f 73 65 6c 65 63 74 28 | 61 25 29 0d 20 d0 2b 3f |_select(|a%). .+?|
|00004fd0| 28 73 65 6c 65 63 74 5f | 62 6c 6f 63 6b 2b 61 25 |(select_|block+a%|
|00004fe0| 29 3d ac 20 3f 28 73 65 | 6c 65 63 74 5f 62 6c 6f |)=. ?(se|lect_blo|
|00004ff0| 63 6b 2b 61 25 29 0d 20 | da 13 f2 73 65 6c 65 63 |ck+a%). |...selec|
|00005000| 74 5f 65 6f 72 28 61 25 | 29 0d 20 e4 05 e1 0d 20 |t_eor(a%|). .... |
|00005010| ee 05 3a 0d 20 f8 11 dd | 20 f2 73 65 6c 65 63 74 |..:. ...| .select|
|00005020| 5f 61 6c 6c 0d 21 02 08 | ea 20 6c 25 0d 21 0c 26 |_all.!..|. l%.!.&|
|00005030| e3 20 6c 25 3d 30 b8 32 | 35 35 88 20 34 3a 73 65 |. l%=0.2|55. 4:se|
|00005040| 6c 65 63 74 5f 62 6c 6f | 63 6b 21 6c 25 3d 2d 31 |lect_blo|ck!l%=-1|
|00005050| 3a ed 0d 21 16 37 e3 20 | 6c 25 3d 30 b8 32 35 35 |:..!.7. |l%=0.255|
|00005060| 3a e7 3f 28 6c 6f 73 65 | 5f 62 6c 6f 63 6b 2b 6c |:.?(lose|_block+l|
|00005070| 25 29 20 8c 20 3f 28 73 | 65 6c 65 63 74 5f 62 6c |%) . ?(s|elect_bl|
|00005080| 6f 63 6b 2b 6c 25 29 3d | a3 0d 21 20 05 ed 0d 21 |ock+l%)=|..! ...!|
|00005090| 2a 4f c8 99 20 22 57 69 | 6d 70 5f 46 6f 72 63 65 |*O.. "Wi|mp_Force|
|000050a0| 52 65 64 72 61 77 22 2c | 6d 61 69 6e 25 2c 77 6f |Redraw",|main%,wo|
|000050b0| 72 6b 5f 78 5f 6d 69 6e | 25 2c 77 6f 72 6b 5f 79 |rk_x_min|%,work_y|
|000050c0| 5f 6d 69 6e 25 2c 77 6f | 72 6b 5f 78 5f 6d 61 78 |_min%,wo|rk_x_max|
|000050d0| 25 2c 77 6f 72 6b 5f 79 | 5f 6d 61 78 25 0d 21 34 |%,work_y|_max%.!4|
|000050e0| 05 e1 0d 21 3e 05 3a 0d | 21 48 19 dd 20 f2 63 6c |...!>.:.|!H.. .cl|
|000050f0| 65 61 72 5f 61 6c 6c 28 | 72 65 64 72 61 77 25 29 |ear_all(|redraw%)|
|00005100| 0d 21 52 0e ea 20 6c 25 | 2c 66 6c 61 67 25 0d 21 |.!R.. l%|,flag%.!|
|00005110| 5c 0f e7 20 72 65 64 72 | 61 77 25 20 8c 0d 21 66 |\.. redr|aw% ..!f|
|00005120| 10 43 4c 45 41 52 5f 41 | 4c 4c 25 3d b9 0d 21 70 |.CLEAR_A|LL%=..!p|
|00005130| 54 71 25 21 30 3d 6d 61 | 69 6e 25 3a 71 25 21 34 |Tq%!0=ma|in%:q%!4|
|00005140| 3d 77 6f 72 6b 5f 78 5f | 6d 69 6e 25 3a 71 25 21 |=work_x_|min%:q%!|
|00005150| 38 3d 77 6f 72 6b 5f 79 | 5f 6d 69 6e 25 3a 71 25 |8=work_y|_min%:q%|
|00005160| 21 31 32 3d 77 6f 72 6b | 5f 78 5f 6d 61 78 25 3a |!12=work|_x_max%:|
|00005170| 71 25 21 31 36 3d 77 6f | 72 6b 5f 79 5f 6d 61 78 |q%!16=wo|rk_y_max|
|00005180| 25 0d 21 7a 26 c8 99 20 | 22 57 69 6d 70 5f 55 70 |%.!z&.. |"Wimp_Up|
|00005190| 64 61 74 65 57 69 6e 64 | 6f 77 22 2c 2c 71 25 20 |dateWind|ow",,q% |
|000051a0| b8 20 66 6c 61 67 25 0d | 21 84 0c c8 95 20 66 6c |. flag%.|!.... fl|
|000051b0| 61 67 25 0d 21 8e 19 f2 | 72 65 64 72 61 77 5f 73 |ag%.!...|redraw_s|
|000051c0| 65 6c 65 63 74 69 6f 6e | 28 71 25 29 0d 21 98 26 |election|(q%).!.&|
|000051d0| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 52 65 63 74 |.. "Wimp|_GetRect|
|000051e0| 61 6e 67 6c 65 22 2c 2c | 71 25 20 b8 20 66 6c 61 |angle",,|q% . fla|
|000051f0| 67 25 0d 21 a2 05 ce 0d | 21 ac 10 43 4c 45 41 52 |g%.!....|!..CLEAR|
|00005200| 5f 41 4c 4c 25 3d a3 0d | 21 b6 05 cd 0d 21 c0 24 |_ALL%=..|!....!.$|
|00005210| e3 20 6c 25 3d 30 b8 32 | 35 35 88 34 3a 73 65 6c |. l%=0.2|55.4:sel|
|00005220| 65 63 74 5f 62 6c 6f 63 | 6b 21 6c 25 3d 30 3a ed |ect_bloc|k!l%=0:.|
|00005230| 0d 21 ca 05 e1 0d 21 d4 | 05 3a 0d 21 de 1b dd 20 |.!....!.|.:.!... |
|00005240| f2 72 65 64 72 61 77 5f | 73 65 6c 65 63 74 69 6f |.redraw_|selectio|
|00005250| 6e 28 71 25 29 0d 21 e8 | 37 ea 20 78 6d 69 6e 25 |n(q%).!.|7. xmin%|
|00005260| 2c 79 6d 69 6e 25 2c 78 | 6d 61 78 25 2c 79 6d 61 |,ymin%,x|max%,yma|
|00005270| 78 25 2c 78 25 2c 79 25 | 2c 73 63 72 65 65 6e 5f |x%,x%,y%|,screen_|
|00005280| 78 25 2c 73 63 72 65 65 | 6e 5f 79 25 0d 21 f2 57 |x%,scree|n_y%.!.W|
|00005290| 78 6d 69 6e 25 3d a4 6d | 61 78 28 28 28 71 25 21 |xmin%=.m|ax(((q%!|
|000052a0| 32 38 2d 28 71 25 21 34 | 2b 6c 65 66 74 6d 61 72 |28-(q%!4|+leftmar|
|000052b0| 67 69 6e 25 2d 71 25 21 | 32 30 2b 28 28 31 36 2d |gin%-q%!|20+((16-|
|000052c0| 78 5f 73 70 61 63 69 6e | 67 25 29 3e 3e 31 29 29 |x_spacin|g%)>>1))|
|000052d0| 29 81 20 78 5f 73 70 61 | 63 69 6e 67 25 29 2d 31 |). x_spa|cing%)-1|
|000052e0| 2c 30 29 0d 21 fc 58 78 | 6d 61 78 25 3d a4 6d 69 |,0).!.Xx|max%=.mi|
|000052f0| 6e 28 28 28 71 25 21 33 | 36 2d 28 71 25 21 34 2b |n(((q%!3|6-(q%!4+|
|00005300| 6c 65 66 74 6d 61 72 67 | 69 6e 25 2d 71 25 21 32 |leftmarg|in%-q%!2|
|00005310| 30 2b 28 28 31 36 2d 78 | 5f 73 70 61 63 69 6e 67 |0+((16-x|_spacing|
|00005320| 25 29 3e 3e 31 29 29 29 | 81 20 78 5f 73 70 61 63 |%)>>1)))|. x_spac|
|00005330| 69 6e 67 25 29 2d 31 2c | 31 35 29 0d 22 06 55 79 |ing%)-1,|15).".Uy|
|00005340| 6d 69 6e 25 3d a4 6d 61 | 78 28 28 28 71 25 21 31 |min%=.ma|x(((q%!1|
|00005350| 36 2d 74 6f 70 6d 61 72 | 67 69 6e 25 2d 71 25 21 |6-topmar|gin%-q%!|
|00005360| 32 34 2b 28 28 79 5f 73 | 70 61 63 69 6e 67 25 2d |24+((y_s|pacing%-|
|00005370| 33 32 29 3e 3e 31 29 2d | 71 25 21 34 30 29 81 20 |32)>>1)-|q%!40). |
|00005380| 79 5f 73 70 61 63 69 6e | 67 25 29 2d 31 2c 30 29 |y_spacin|g%)-1,0)|
|00005390| 0d 22 10 56 79 6d 61 78 | 25 3d a4 6d 69 6e 28 28 |.".Vymax|%=.min((|
|000053a0| 28 71 25 21 31 36 2d 74 | 6f 70 6d 61 72 67 69 6e |(q%!16-t|opmargin|
|000053b0| 25 2d 71 25 21 32 34 2b | 28 28 79 5f 73 70 61 63 |%-q%!24+|((y_spac|
|000053c0| 69 6e 67 25 2d 33 32 29 | 3e 3e 31 29 2d 71 25 21 |ing%-32)|>>1)-q%!|
|000053d0| 33 32 29 81 20 79 5f 73 | 70 61 63 69 6e 67 25 29 |32). y_s|pacing%)|
|000053e0| 2d 31 2c 31 35 29 0d 22 | 1a 08 e6 33 2c 37 0d 22 |-1,15)."|...3,7."|
|000053f0| 24 18 e3 20 79 25 20 3d | 20 79 6d 69 6e 25 20 b8 |$.. y% =| ymin% .|
|00005400| 20 79 6d 61 78 25 0d 22 | 2e 1a 20 20 e3 20 78 25 | ymax%."|.. . x%|
|00005410| 20 3d 20 78 6d 69 6e 25 | 20 b8 20 78 6d 61 78 25 | = xmin%| . xmax%|
|00005420| 0d 22 38 23 20 20 20 20 | e7 20 73 65 6c 65 63 74 |."8# |. select|
|00005430| 5f 62 6c 6f 63 6b 3f 28 | 79 25 2a 31 36 2b 78 25 |_block?(|y%*16+x%|
|00005440| 29 20 8c 0d 22 42 53 20 | 20 20 20 20 20 73 63 72 |) .."BS | scr|
|00005450| 65 65 6e 5f 79 25 3d 71 | 25 21 31 36 2d 74 6f 70 |een_y%=q|%!16-top|
|00005460| 6d 61 72 67 69 6e 25 2d | 71 25 21 32 34 2b 28 28 |margin%-|q%!24+((|
|00005470| 79 5f 73 70 61 63 69 6e | 67 25 2d 33 32 29 3e 3e |y_spacin|g%-32)>>|
|00005480| 31 29 2d 28 28 79 25 2b | 31 29 2a 79 5f 73 70 61 |1)-((y%+|1)*y_spa|
|00005490| 63 69 6e 67 25 29 0d 22 | 4c 55 20 20 20 20 20 20 |cing%)."|LU |
|000054a0| 73 63 72 65 65 6e 5f 78 | 25 3d 28 28 78 25 2b 31 |screen_x|%=((x%+1|
|000054b0| 29 2a 78 5f 73 70 61 63 | 69 6e 67 25 29 2b 28 71 |)*x_spac|ing%)+(q|
|000054c0| 25 21 34 2b 6c 65 66 74 | 6d 61 72 67 69 6e 25 2d |%!4+left|margin%-|
|000054d0| 71 25 21 32 30 2b 28 28 | 31 36 2d 78 5f 73 70 61 |q%!20+((|16-x_spa|
|000054e0| 63 69 6e 67 25 29 3e 3e | 31 29 29 0d 22 56 4a 20 |cing%)>>|1))."VJ |
|000054f0| 20 20 20 20 20 c8 93 20 | c8 90 20 73 63 72 65 65 | .. |.. scree|
|00005500| 6e 5f 78 25 2c 73 63 72 | 65 65 6e 5f 79 25 2d 79 |n_x%,scr|een_y%-y|
|00005510| 5f 73 70 61 63 69 6e 67 | 25 2b 32 2c 78 5f 73 70 |_spacing|%+2,x_sp|
|00005520| 61 63 69 6e 67 25 2d 32 | 2c 79 5f 73 70 61 63 69 |acing%-2|,y_spaci|
|00005530| 6e 67 25 2d 32 0d 22 60 | 09 20 20 20 20 cd 0d 22 |ng%-2."`|. .."|
|00005540| 6a 30 20 20 20 20 e7 20 | 6c 6f 73 65 5f 62 6c 6f |j0 . |lose_blo|
|00005550| 63 6b 3f 28 79 25 2a 31 | 36 2b 78 25 29 20 80 20 |ck?(y%*1|6+x%) . |
|00005560| ac 20 43 4c 45 41 52 5f | 41 4c 4c 25 20 8c 0d 22 |. CLEAR_|ALL% .."|
|00005570| 74 10 20 20 20 20 20 20 | e6 20 33 2c 31 30 0d 22 |t. |. 3,10."|
|00005580| 7e 53 20 20 20 20 20 20 | 73 63 72 65 65 6e 5f 79 |~S |screen_y|
|00005590| 25 3d 71 25 21 31 36 2d | 74 6f 70 6d 61 72 67 69 |%=q%!16-|topmargi|
|000055a0| 6e 25 2d 71 25 21 32 34 | 2b 28 28 79 5f 73 70 61 |n%-q%!24|+((y_spa|
|000055b0| 63 69 6e 67 25 2d 33 32 | 29 3e 3e 31 29 2d 28 28 |cing%-32|)>>1)-((|
|000055c0| 79 25 2b 31 29 2a 79 5f | 73 70 61 63 69 6e 67 25 |y%+1)*y_|spacing%|
|000055d0| 29 0d 22 88 55 20 20 20 | 20 20 20 73 63 72 65 65 |).".U | scree|
|000055e0| 6e 5f 78 25 3d 28 28 78 | 25 2b 31 29 2a 78 5f 73 |n_x%=((x|%+1)*x_s|
|000055f0| 70 61 63 69 6e 67 25 29 | 2b 28 71 25 21 34 2b 6c |pacing%)|+(q%!4+l|
|00005600| 65 66 74 6d 61 72 67 69 | 6e 25 2d 71 25 21 32 30 |eftmargi|n%-q%!20|
|00005610| 2b 28 28 31 36 2d 78 5f | 73 70 61 63 69 6e 67 25 |+((16-x_|spacing%|
|00005620| 29 3e 3e 31 29 29 0d 22 | 92 4a 20 20 20 20 20 20 |)>>1))."|.J |
|00005630| c8 93 20 c8 90 20 73 63 | 72 65 65 6e 5f 78 25 2c |.. .. sc|reen_x%,|
|00005640| 73 63 72 65 65 6e 5f 79 | 25 2d 79 5f 73 70 61 63 |screen_y|%-y_spac|
|00005650| 69 6e 67 25 2b 32 2c 78 | 5f 73 70 61 63 69 6e 67 |ing%+2,x|_spacing|
|00005660| 25 2d 32 2c 79 5f 73 70 | 61 63 69 6e 67 25 2d 32 |%-2,y_sp|acing%-2|
|00005670| 0d 22 9c 0e 20 20 20 20 | 20 20 e6 33 2c 37 0d 22 |.".. | .3,7."|
|00005680| a6 09 20 20 20 20 cd 0d | 22 b0 08 20 20 20 ed 0d |.. ..|".. ..|
|00005690| 22 ba 05 ed 0d 22 c4 05 | cd 0d 22 ce 05 e1 0d 22 |"...."..|.."...."|
|000056a0| d8 05 3a 0d 22 e2 16 dd | 20 f2 64 72 61 67 5f 61 |..:."...| .drag_a|
|000056b0| 64 6a 75 73 74 28 71 25 | 29 0d 22 ec 39 ea 20 64 |djust(q%|).".9. d|
|000056c0| 62 5f 78 6d 69 6e 25 2c | 64 62 5f 78 6d 61 78 25 |b_xmin%,|db_xmax%|
|000056d0| 2c 64 62 5f 79 6d 69 6e | 25 2c 64 62 5f 79 6d 61 |,db_ymin|%,db_yma|
|000056e0| 78 25 2c 78 31 25 2c 78 | 32 25 2c 79 31 25 2c 79 |x%,x1%,x|2%,y1%,y|
|000056f0| 32 25 0d 22 f6 11 64 62 | 5f 78 6d 69 6e 25 3d 71 |2%."..db|_xmin%=q|
|00005700| 25 21 30 0d 23 00 11 64 | 62 5f 78 6d 61 78 25 3d |%!0.#..d|b_xmax%=|
|00005710| 71 25 21 38 0d 23 0a 11 | 64 62 5f 79 6d 69 6e 25 |q%!8.#..|db_ymin%|
|00005720| 3d 71 25 21 34 0d 23 14 | 12 64 62 5f 79 6d 61 78 |=q%!4.#.|.db_ymax|
|00005730| 25 3d 71 25 21 31 32 0d | 23 1e 0d 21 71 25 3d 6d |%=q%!12.|#..!q%=m|
|00005740| 61 69 6e 25 0d 23 28 20 | c8 99 20 22 57 69 6d 70 |ain%.#( |.. "Wimp|
|00005750| 5f 47 65 74 57 69 6e 64 | 6f 77 53 74 61 74 65 22 |_GetWind|owState"|
|00005760| 2c 2c 71 25 0d 23 32 50 | 78 31 25 3d 28 28 64 62 |,,q%.#2P|x1%=((db|
|00005770| 5f 78 6d 69 6e 25 2d 28 | 71 25 21 34 2b 6c 65 66 |_xmin%-(|q%!4+lef|
|00005780| 74 6d 61 72 67 69 6e 25 | 2d 71 25 21 32 30 2b 28 |tmargin%|-q%!20+(|
|00005790| 28 31 36 2d 78 5f 73 70 | 61 63 69 6e 67 25 29 3e |(16-x_sp|acing%)>|
|000057a0| 3e 31 29 29 29 81 20 78 | 5f 73 70 61 63 69 6e 67 |>1))). x|_spacing|
|000057b0| 25 29 2d 31 0d 23 3c 50 | 78 32 25 3d 28 28 64 62 |%)-1.#<P|x2%=((db|
|000057c0| 5f 78 6d 61 78 25 2d 28 | 71 25 21 34 2b 6c 65 66 |_xmax%-(|q%!4+lef|
|000057d0| 74 6d 61 72 67 69 6e 25 | 2d 71 25 21 32 30 2b 28 |tmargin%|-q%!20+(|
|000057e0| 28 31 36 2d 78 5f 73 70 | 61 63 69 6e 67 25 29 3e |(16-x_sp|acing%)>|
|000057f0| 3e 31 29 29 29 81 20 78 | 5f 73 70 61 63 69 6e 67 |>1))). x|_spacing|
|00005800| 25 29 2d 31 0d 23 46 4e | 79 31 25 3d 28 28 71 25 |%)-1.#FN|y1%=((q%|
|00005810| 21 31 36 2d 74 6f 70 6d | 61 72 67 69 6e 25 2d 71 |!16-topm|argin%-q|
|00005820| 25 21 32 34 2b 28 28 79 | 5f 73 70 61 63 69 6e 67 |%!24+((y|_spacing|
|00005830| 25 2d 33 32 29 3e 3e 31 | 29 2d 64 62 5f 79 6d 69 |%-32)>>1|)-db_ymi|
|00005840| 6e 25 29 81 20 79 5f 73 | 70 61 63 69 6e 67 25 29 |n%). y_s|pacing%)|
|00005850| 2d 31 0d 23 50 4e 79 32 | 25 3d 28 28 71 25 21 31 |-1.#PNy2|%=((q%!1|
|00005860| 36 2d 74 6f 70 6d 61 72 | 67 69 6e 25 2d 71 25 21 |6-topmar|gin%-q%!|
|00005870| 32 34 2b 28 28 79 5f 73 | 70 61 63 69 6e 67 25 2d |24+((y_s|pacing%-|
|00005880| 33 32 29 3e 3e 31 29 2d | 64 62 5f 79 6d 61 78 25 |32)>>1)-|db_ymax%|
|00005890| 29 81 20 79 5f 73 70 61 | 63 69 6e 67 25 29 2d 31 |). y_spa|cing%)-1|
|000058a0| 0d 23 5a 19 e7 20 78 31 | 25 3e 78 32 25 20 8c 20 |.#Z.. x1|%>x2% . |
|000058b0| c8 94 78 31 25 2c 78 32 | 25 0d 23 64 19 e7 20 79 |..x1%,x2|%.#d.. y|
|000058c0| 31 25 3e 79 32 25 20 8c | 20 c8 94 79 31 25 2c 79 |1%>y2% .| ..y1%,y|
|000058d0| 32 25 0d 23 6e 13 78 31 | 25 3d a4 6d 61 78 28 78 |2%.#n.x1|%=.max(x|
|000058e0| 31 25 2c 30 29 0d 23 78 | 14 78 32 25 3d a4 6d 69 |1%,0).#x|.x2%=.mi|
|000058f0| 6e 28 78 32 25 2c 31 35 | 29 0d 23 82 13 79 31 25 |n(x2%,15|).#..y1%|
|00005900| 3d a4 6d 61 78 28 79 31 | 25 2c 30 29 0d 23 8c 14 |=.max(y1|%,0).#..|
|00005910| 79 32 25 3d a4 6d 69 6e | 28 79 32 25 2c 31 35 29 |y2%=.min|(y2%,15)|
|00005920| 0d 23 96 12 e3 20 79 25 | 3d 79 31 25 20 b8 20 79 |.#... y%|=y1% . y|
|00005930| 32 25 0d 23 a0 12 e3 20 | 78 25 3d 78 31 25 20 b8 |2%.#... |x%=x1% .|
|00005940| 20 78 32 25 0d 23 aa 35 | 73 65 6c 65 63 74 5f 62 | x2%.#.5|select_b|
|00005950| 6c 6f 63 6b 3f 28 79 25 | 2a 31 36 2b 78 25 29 3d |lock?(y%|*16+x%)=|
|00005960| ac 20 73 65 6c 65 63 74 | 5f 62 6c 6f 63 6b 3f 28 |. select|_block?(|
|00005970| 79 25 2a 31 36 2b 78 25 | 29 0d 23 b4 05 ed 0d 23 |y%*16+x%|).#....#|
|00005980| be 05 ed 0d 23 c8 3d 78 | 31 25 3d 28 28 78 31 25 |....#.=x|1%=((x1%|
|00005990| 2b 31 29 2a 78 5f 73 70 | 61 63 69 6e 67 25 29 2b |+1)*x_sp|acing%)+|
|000059a0| 6c 65 66 74 6d 61 72 67 | 69 6e 25 2b 28 28 31 36 |leftmarg|in%+((16|
|000059b0| 2d 78 5f 73 70 61 63 69 | 6e 67 25 29 3e 3e 31 29 |-x_spaci|ng%)>>1)|
|000059c0| 0d 23 d2 3e 79 31 25 3d | 28 28 79 5f 73 70 61 63 |.#.>y1%=|((y_spac|
|000059d0| 69 6e 67 25 2d 33 32 29 | 3e 3e 31 29 2d 74 6f 70 |ing%-32)|>>1)-top|
|000059e0| 6d 61 72 67 69 6e 25 2d | 28 28 79 31 25 2b 31 29 |margin%-|((y1%+1)|
|000059f0| 2a 79 5f 73 70 61 63 69 | 6e 67 25 29 2b 32 0d 23 |*y_spaci|ng%)+2.#|
|00005a00| dc 3d 78 32 25 3d 28 28 | 78 32 25 2b 32 29 2a 78 |.=x2%=((|x2%+2)*x|
|00005a10| 5f 73 70 61 63 69 6e 67 | 25 29 2b 6c 65 66 74 6d |_spacing|%)+leftm|
|00005a20| 61 72 67 69 6e 25 2b 28 | 28 31 36 2d 78 5f 73 70 |argin%+(|(16-x_sp|
|00005a30| 61 63 69 6e 67 25 29 3e | 3e 31 29 0d 23 e6 3e 79 |acing%)>|>1).#.>y|
|00005a40| 32 25 3d 28 28 79 5f 73 | 70 61 63 69 6e 67 25 2d |2%=((y_s|pacing%-|
|00005a50| 33 32 29 3e 3e 31 29 2d | 74 6f 70 6d 61 72 67 69 |32)>>1)-|topmargi|
|00005a60| 6e 25 2d 28 28 79 32 25 | 2b 32 29 2a 79 5f 73 70 |n%-((y2%|+2)*y_sp|
|00005a70| 61 63 69 6e 67 25 29 2b | 32 0d 23 f0 34 71 25 21 |acing%)+|2.#.4q%!|
|00005a80| 30 3d 6d 61 69 6e 25 3a | 71 25 21 34 3d 78 31 25 |0=main%:|q%!4=x1%|
|00005a90| 3a 71 25 21 38 3d 79 32 | 25 3a 71 25 21 31 32 3d |:q%!8=y2|%:q%!12=|
|00005aa0| 78 32 25 3a 71 25 21 31 | 36 3d 79 31 25 0d 23 fa |x2%:q%!1|6=y1%.#.|
|00005ab0| 26 c8 99 20 22 57 69 6d | 70 5f 55 70 64 61 74 65 |&.. "Wim|p_Update|
|00005ac0| 57 69 6e 64 6f 77 22 2c | 2c 71 25 20 b8 20 66 6c |Window",|,q% . fl|
|00005ad0| 61 67 25 0d 24 04 0c c8 | 95 20 66 6c 61 67 25 0d |ag%.$...|. flag%.|
|00005ae0| 24 0e 08 e6 33 2c 37 0d | 24 18 2d c8 93 20 c8 90 |$...3,7.|$.-.. ..|
|00005af0| 20 71 25 21 32 38 2c 71 | 25 21 34 30 2c 71 25 21 | q%!28,q|%!40,q%!|
|00005b00| 33 36 2d 71 25 21 32 38 | 2c 71 25 21 33 32 2d 71 |36-q%!28|,q%!32-q|
|00005b10| 25 21 34 30 0d 24 22 26 | c8 99 20 22 57 69 6d 70 |%!40.$"&|.. "Wimp|
|00005b20| 5f 47 65 74 52 65 63 74 | 61 6e 67 6c 65 22 2c 2c |_GetRect|angle",,|
|00005b30| 71 25 20 b8 20 66 6c 61 | 67 25 0d 24 2c 05 ce 0d |q% . fla|g%.$,...|
|00005b40| 24 36 15 64 72 61 67 62 | 6f 78 5f 61 64 6a 75 73 |$6.dragb|ox_adjus|
|00005b50| 74 25 3d a3 0d 24 40 05 | e1 0d 24 4a 05 3a 0d 24 |t%=..$@.|..$J.:.$|
|00005b60| 54 16 dd 20 f2 64 72 61 | 67 5f 73 65 6c 65 63 74 |T.. .dra|g_select|
|00005b70| 28 71 25 29 0d 24 5e 1f | ea 20 78 25 2c 79 25 2c |(q%).$^.|. x%,y%,|
|00005b80| 73 63 72 65 65 6e 5f 78 | 25 2c 73 63 72 65 65 6e |screen_x|%,screen|
|00005b90| 5f 79 25 0d 24 68 19 c8 | 99 20 22 4f 53 5f 4d 6f |_y%.$h..|. "OS_Mo|
|00005ba0| 75 73 65 22 20 b8 20 78 | 25 2c 79 25 0d 24 72 0d |use" . x|%,y%.$r.|
|00005bb0| 21 71 25 3d 6d 61 69 6e | 25 0d 24 7c 20 c8 99 20 |!q%=main|%.$| .. |
|00005bc0| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|00005bd0| 74 61 74 65 22 2c 2c 71 | 25 0d 24 86 49 78 25 3d |tate",,q|%.$.Ix%=|
|00005be0| 28 28 78 25 2d 28 71 25 | 21 34 2b 6c 65 66 74 6d |((x%-(q%|!4+leftm|
|00005bf0| 61 72 67 69 6e 25 2d 71 | 25 21 32 30 2b 28 28 31 |argin%-q|%!20+((1|
|00005c00| 36 2d 78 5f 73 70 61 63 | 69 6e 67 25 29 3e 3e 31 |6-x_spac|ing%)>>1|
|00005c10| 29 29 29 81 20 78 5f 73 | 70 61 63 69 6e 67 25 29 |))). x_s|pacing%)|
|00005c20| 2d 31 0d 24 90 47 79 25 | 3d 28 28 71 25 21 31 36 |-1.$.Gy%|=((q%!16|
|00005c30| 2d 74 6f 70 6d 61 72 67 | 69 6e 25 2d 71 25 21 32 |-topmarg|in%-q%!2|
|00005c40| 34 2b 28 28 79 5f 73 70 | 61 63 69 6e 67 25 2d 33 |4+((y_sp|acing%-3|
|00005c50| 32 29 3e 3e 31 29 2d 79 | 25 29 81 20 79 5f 73 70 |2)>>1)-y|%). y_sp|
|00005c60| 61 63 69 6e 67 25 29 2d | 31 0d 24 9a 18 e7 20 28 |acing%)-|1.$... (|
|00005c70| 78 25 3c 30 20 84 20 78 | 25 3e 31 35 29 20 8c 20 |x%<0 . x|%>15) . |
|00005c80| e1 0d 24 a4 18 e7 20 28 | 79 25 3c 30 20 84 20 79 |..$... (|y%<0 . y|
|00005c90| 25 3e 31 35 29 20 8c 20 | e1 0d 24 ae 33 3f 28 66 |%>15) . |..$.3?(f|
|00005ca0| 69 6c 74 65 72 5f 73 74 | 6f 72 65 2b 28 79 25 2a |ilter_st|ore+(y%*|
|00005cb0| 31 36 29 2b 78 25 29 3d | 64 72 61 67 62 6f 78 5f |16)+x%)=|dragbox_|
|00005cc0| 73 65 6c 65 63 74 5f 63 | 68 61 72 25 0d 24 b8 1d |select_c|har%.$..|
|00005cd0| 43 24 28 79 25 2b 31 29 | 3d a4 6d 61 6b 65 5f 6c |C$(y%+1)|=.make_l|
|00005ce0| 69 6e 65 28 79 25 2b 31 | 29 0d 24 c2 4f 73 63 72 |ine(y%+1|).$.Oscr|
|00005cf0| 65 65 6e 5f 78 25 3d 28 | 28 78 25 2b 31 29 2a 78 |een_x%=(|(x%+1)*x|
|00005d00| 5f 73 70 61 63 69 6e 67 | 25 29 2b 28 71 25 21 34 |_spacing|%)+(q%!4|
|00005d10| 2b 6c 65 66 74 6d 61 72 | 67 69 6e 25 2d 71 25 21 |+leftmar|gin%-q%!|
|00005d20| 32 30 2b 28 28 31 36 2d | 78 5f 73 70 61 63 69 6e |20+((16-|x_spacin|
|00005d30| 67 25 29 3e 3e 31 29 29 | 0d 24 cc 4d 73 63 72 65 |g%)>>1))|.$.Mscre|
|00005d40| 65 6e 5f 79 25 3d 71 25 | 21 31 36 2d 74 6f 70 6d |en_y%=q%|!16-topm|
|00005d50| 61 72 67 69 6e 25 2d 71 | 25 21 32 34 2b 28 28 79 |argin%-q|%!24+((y|
|00005d60| 5f 73 70 61 63 69 6e 67 | 25 2d 33 32 29 3e 3e 31 |_spacing|%-32)>>1|
|00005d70| 29 2d 28 28 79 25 2b 31 | 29 2a 79 5f 73 70 61 63 |)-((y%+1|)*y_spac|
|00005d80| 69 6e 67 25 29 0d 24 d6 | 62 c8 99 20 22 57 69 6d |ing%).$.|b.. "Wim|
|00005d90| 70 5f 46 6f 72 63 65 52 | 65 64 72 61 77 22 2c 2d |p_ForceR|edraw",-|
|00005da0| 31 2c 73 63 72 65 65 6e | 5f 78 25 2d 38 2c 73 63 |1,screen|_x%-8,sc|
|00005db0| 72 65 65 6e 5f 79 25 2d | 79 5f 73 70 61 63 69 6e |reen_y%-|y_spacin|
|00005dc0| 67 25 2d 38 2c 73 63 72 | 65 65 6e 5f 78 25 2b 78 |g%-8,scr|een_x%+x|
|00005dd0| 5f 73 70 61 63 69 6e 67 | 25 2b 38 2c 73 63 72 65 |_spacing|%+8,scre|
|00005de0| 65 6e 5f 79 25 2b 38 0d | 24 e0 15 64 72 61 67 62 |en_y%+8.|$..dragb|
|00005df0| 6f 78 5f 73 65 6c 65 63 | 74 25 3d a3 0d 24 ea 05 |ox_selec|t%=..$..|
|00005e00| e1 0d 24 f4 05 3a 0d 24 | fe 11 dd 20 f2 66 69 6c |..$..:.$|... .fil|
|00005e10| 74 65 72 5f 6f 75 74 0d | 25 08 08 ea 20 6c 25 0d |ter_out.|%... l%.|
|00005e20| 25 12 10 e3 20 6c 25 3d | 30 20 b8 20 32 35 35 0d |%... l%=|0 . 255.|
|00005e30| 25 1c 3e e7 20 3f 28 73 | 65 6c 65 63 74 5f 62 6c |%.>. ?(s|elect_bl|
|00005e40| 6f 63 6b 2b 6c 25 29 20 | 8c 20 3f 28 6c 6f 73 65 |ock+l%) |. ?(lose|
|00005e50| 5f 62 6c 6f 63 6b 2b 6c | 25 29 3d ac 20 3f 28 6c |_block+l|%)=. ?(l|
|00005e60| 6f 73 65 5f 62 6c 6f 63 | 6b 2b 6c 25 29 0d 25 26 |ose_bloc|k+l%).%&|
|00005e70| 05 ed 0d 25 30 26 e7 20 | 63 6c 65 61 72 5f 73 65 |...%0&. |clear_se|
|00005e80| 6c 65 63 74 69 6f 6e 25 | 20 8c 20 f2 63 6c 65 61 |lection%| . .clea|
|00005e90| 72 5f 61 6c 6c 28 a3 29 | 0d 25 3a 10 f2 67 65 74 |r_all(.)|.%:..get|
|00005ea0| 6d 6f 64 65 69 6e 66 6f | 0d 25 44 4f c8 99 20 22 |modeinfo|.%DO.. "|
|00005eb0| 57 69 6d 70 5f 46 6f 72 | 63 65 52 65 64 72 61 77 |Wimp_For|ceRedraw|
|00005ec0| 22 2c 6d 61 69 6e 25 2c | 77 6f 72 6b 5f 78 5f 6d |",main%,|work_x_m|
|00005ed0| 69 6e 25 2c 77 6f 72 6b | 5f 79 5f 6d 69 6e 25 2c |in%,work|_y_min%,|
|00005ee0| 77 6f 72 6b 5f 78 5f 6d | 61 78 25 2c 77 6f 72 6b |work_x_m|ax%,work|
|00005ef0| 5f 79 5f 6d 61 78 25 0d | 25 4e 05 e1 0d 25 58 05 |_y_max%.|%N...%X.|
|00005f00| 3a 0d 25 62 12 dd 20 a4 | 63 6f 6d 6d 61 6e 64 74 |:.%b.. .|commandt|
|00005f10| 61 69 6c 0d 25 6c 19 ea | 20 69 2c 6e 75 6d 73 70 |ail.%l..| i,numsp|
|00005f20| 61 63 65 73 2c 63 6f 6d | 6d 61 6e 64 0d 25 76 1c |aces,com|mand.%v.|
|00005f30| c8 99 20 22 4f 53 5f 47 | 65 74 45 6e 76 22 20 b8 |.. "OS_G|etEnv" .|
|00005f40| 20 63 6f 6d 6d 61 6e 64 | 0d 25 80 07 69 3d 30 0d | command|.%..i=0.|
|00005f50| 25 8a 13 c8 95 20 63 6f | 6d 6d 61 6e 64 3f 69 3c |%.... co|mmand?i<|
|00005f60| 3e 30 0d 25 94 08 69 2b | 3d 31 0d 25 9e 05 ce 0d |>0.%..i+|=1.%....|
|00005f70| 25 a8 10 63 6f 6d 6d 61 | 6e 64 3f 69 3d 31 33 0d |%..comma|nd?i=13.|
|00005f80| 25 b2 0f 6e 75 6d 73 70 | 61 63 65 73 3d 30 0d 25 |%..numsp|aces=0.%|
|00005f90| bc 07 69 3d 30 0d 25 c6 | 12 c8 95 20 6e 75 6d 73 |..i=0.%.|... nums|
|00005fa0| 70 61 63 65 73 3c 33 0d | 25 d0 22 e7 20 63 6f 6d |paces<3.|%.". com|
|00005fb0| 6d 61 6e 64 3f 69 3d 26 | 32 30 20 8c 20 6e 75 6d |mand?i=&|20 . num|
|00005fc0| 73 70 61 63 65 73 2b 3d | 31 0d 25 da 08 69 2b 3d |spaces+=|1.%..i+=|
|00005fd0| 31 0d 25 e4 05 ce 0d 25 | ee 11 3d 24 28 63 6f 6d |1.%....%|..=$(com|
|00005fe0| 6d 61 6e 64 2b 69 29 0d | 25 f8 05 3a 0d 26 02 1c |mand+i).|%..:.&..|
|00005ff0| dd 20 a4 66 69 6c 74 65 | 72 28 61 24 2c 6c 6f 77 |. .filte|r(a$,low|
|00006000| 25 2c 68 69 67 68 25 29 | 0d 26 0c 0f ea 20 63 6f |%,high%)|.&... co|
|00006010| 75 6e 74 25 2c 62 24 0d | 26 16 15 e3 20 63 6f 75 |unt%,b$.|&... cou|
|00006020| 6e 74 25 3d 31 20 b8 20 | a9 20 61 24 0d 26 20 36 |nt%=1 . |. a$.& 6|
|00006030| e7 20 97 20 c1 61 24 2c | 63 6f 75 6e 74 25 2c 31 |. . .a$,|count%,1|
|00006040| 29 3e 3d 6c 6f 77 25 20 | 80 20 97 20 c1 61 24 2c |)>=low% |. . .a$,|
|00006050| 63 6f 75 6e 74 25 2c 31 | 29 3c 3d 68 69 67 68 25 |count%,1|)<=high%|
|00006060| 20 8c 0d 26 2a 15 62 24 | 2b 3d c1 61 24 2c 63 6f | ..&*.b$|+=.a$,co|
|00006070| 75 6e 74 25 2c 31 29 0d | 26 34 05 cd 0d 26 3e 05 |unt%,1).|&4...&>.|
|00006080| ed 0d 26 48 07 3d 62 24 | 0d 26 52 05 3a 0d 26 5c |..&H.=b$|.&R.:.&\|
|00006090| 14 dd 20 a4 66 69 6c 65 | 73 74 79 70 65 28 66 24 |.. .file|stype(f$|
|000060a0| 29 0d 26 66 10 ea 20 74 | 79 70 65 25 2c 6f 62 6a |).&f.. t|ype%,obj|
|000060b0| 25 0d 26 70 23 c8 99 20 | 22 4f 53 5f 46 69 6c 65 |%.&p#.. |"OS_File|
|000060c0| 22 2c 35 2c 66 24 20 b8 | 20 6f 62 6a 25 2c 2c 74 |",5,f$ .| obj%,,t|
|000060d0| 79 70 65 25 0d 26 7a 35 | e7 20 6f 62 6a 25 3d 31 |ype%.&z5|. obj%=1|
|000060e0| 20 8c 20 74 79 70 65 25 | 3d 28 74 79 70 65 25 20 | . type%|=(type% |
|000060f0| 80 20 26 46 46 46 30 30 | 29 20 3e 3e 20 38 20 8b |. &FFF00|) >> 8 .|
|00006100| 20 74 79 70 65 25 3d 2d | 31 0d 26 84 0a 3d 74 79 | type%=-|1.&..=ty|
|00006110| 70 65 25 0d 26 8e 05 3a | 0d 26 98 13 dd 20 f2 64 |pe%.&..:|.&... .d|
|00006120| 61 74 61 73 61 76 65 28 | 71 25 29 0d 26 a2 0b ea |atasave(|q%).&...|
|00006130| 20 74 65 6d 70 25 0d 26 | ac 27 e7 20 71 25 21 34 | temp%.&|.'. q%!4|
|00006140| 3d 74 61 73 6b 69 64 25 | 20 84 20 71 25 21 32 30 |=taskid%| . q%!20|
|00006150| 20 3c 3e 20 6d 61 69 6e | 25 20 8c 20 e1 0d 26 b6 | <> main|% . ..&.|
|00006160| 28 6c 65 61 66 6e 61 6d | 65 24 3d a4 6c 65 61 66 |(leafnam|e$=.leaf|
|00006170| 28 a4 6d 65 6d 74 6f 73 | 74 72 28 71 25 2b 34 34 |(.memtos|tr(q%+44|
|00006180| 2c 35 30 29 29 0d 26 c0 | 0b 71 25 21 30 3d 36 30 |,50)).&.|.q%!0=60|
|00006190| 0d 26 ca 0e 71 25 21 31 | 32 3d 71 25 21 38 0d 26 |.&..q%!1|2=q%!8.&|
|000061a0| d4 0b 71 25 21 31 36 3d | 32 0d 26 de 0c 71 25 21 |..q%!16=|2.&..q%!|
|000061b0| 33 36 3d 2d 31 0d 26 e8 | 3c c8 99 20 22 58 4f 53 |36=-1.&.|<.. "XOS|
|000061c0| 5f 52 65 61 64 56 61 72 | 56 61 6c 22 2c 22 57 69 |_ReadVar|Val","Wi|
|000061d0| 6d 70 24 53 63 72 61 70 | 22 2c 71 25 2b 31 30 30 |mp$Scrap|",q%+100|
|000061e0| 2c 31 30 2c 30 2c 30 20 | b8 20 2c 2c 74 65 6d 70 |,10,0,0 |. ,,temp|
|000061f0| 25 0d 26 f2 12 e7 20 74 | 65 6d 70 25 20 3c 3e 20 |%.&... t|emp% <> |
|00006200| 30 20 8c 0d 26 fc 1b 24 | 28 71 25 2b 34 34 29 3d |0 ..&..$|(q%+44)=|
|00006210| 22 3c 57 69 6d 70 24 53 | 63 72 61 70 3e 22 0d 27 |"<Wimp$S|crap>".'|
|00006220| 06 24 c8 99 20 22 57 69 | 6d 70 5f 53 65 6e 64 4d |.$.. "Wi|mp_SendM|
|00006230| 65 73 73 61 67 65 22 2c | 31 38 2c 71 25 2c 71 25 |essage",|18,q%,q%|
|00006240| 21 34 0d 27 10 05 cc 0d | 27 1a 28 f2 77 61 72 6e |!4.'....|'.(.warn|
|00006250| 69 6e 67 28 22 3c 57 69 | 6d 70 24 53 63 72 61 70 |ing("<Wi|mp$Scrap|
|00006260| 3e 20 6e 6f 74 20 64 65 | 66 69 6e 65 64 22 29 0d |> not de|fined").|
|00006270| 27 24 05 cd 0d 27 2e 05 | e1 0d 27 38 05 3a 0d 27 |'$...'..|..'8.:.'|
|00006280| 42 11 dd 20 a4 63 68 6b | 68 65 78 28 61 24 29 0d |B.. .chk|hex(a$).|
|00006290| 27 4c 2e e7 20 a7 22 30 | 31 32 33 34 35 36 37 38 |'L.. ."0|12345678|
|000062a0| 39 41 42 43 44 45 46 61 | 62 63 64 65 66 22 2c c1 |9ABCDEFa|bcdef",.|
|000062b0| 61 24 2c 31 2c 31 29 29 | 3d 30 20 3d a3 0d 27 56 |a$,1,1))|=0 =..'V|
|000062c0| 2e e7 20 a7 22 30 31 32 | 33 34 35 36 37 38 39 41 |.. ."012|3456789A|
|000062d0| 42 43 44 45 46 61 62 63 | 64 65 66 22 2c c1 61 24 |BCDEFabc|def",.a$|
|000062e0| 2c 32 2c 31 29 29 3d 30 | 20 3d a3 0d 27 60 2e e7 |,2,1))=0| =..'`..|
|000062f0| 20 a7 22 30 31 32 33 34 | 35 36 37 38 39 41 42 43 | ."01234|56789ABC|
|00006300| 44 45 46 61 62 63 64 65 | 66 22 2c c1 61 24 2c 33 |DEFabcde|f",.a$,3|
|00006310| 2c 31 29 29 3d 30 20 3d | a3 0d 27 6a 06 3d b9 0d |,1))=0 =|..'j.=..|
|00006320| ff | |. | |
+--------+-------------------------+-------------------------+--------+--------+
